I. "Программирование" - язык Паскаль (авс)

Написать программы, решающие следующие задачи:

1) Дан одномерный массив из 10 целых чисел. Необходимо вывести на экран порядковый номер наибольшего числа.

2) Дан одномерный массив из 6 рациональных чисел. Написать алгоритм подсчета элементов массива, значения которых кратны числу k (число k вводится пользователем)

1)

begin

var a:=ReadArrInteger ('Введите 10 чисел:',10) ;

var i:=a. IndexMax;

Writeln ('Максимум A[', i+1,']=', a[i]) ;

end.

2)

const n=6;

type

Q=record

ch:integer;

zn:integer;

end;

var a:array[1 ... n] of Q;

j, k, max:integer;

f:boolean;

mx:Q;

begin

write ('k: ') ;

readln (k) ;

for var i:=1 to n do

begin

writeln ('Дробь ', i) ;

write ('Введите числитель = ') ;

readln (a[i]. ch) ;

repeat write ('Введите знаменатель = ') ;

readln (a[i]. zn) ;

until a[i]. zn>0;

end;

writeln ('Введенные дроби:') ;

for var i:=1 to n do

write (a[i]. ch,'/', a[i]. zn,' ') ;

writeln;

j:=0;

for var i:=1 to n do

if (a[i]. ch div a[i]. zn mod k = 0) then j:=j+1;

writeln ('кол-во ', j) ;

end.

Пример

k: 8

Дробь 1

Введите числитель = 16

Введите знаменатель = 2

Дробь 2

Введите числитель = 64

Введите знаменатель = 8

Дробь 3

Введите числитель = 120

Введите знаменатель = 15

Дробь 4

Введите числитель = - 15

Введите знаменатель = 5

Дробь 5

Введите числитель = - 16

Введите знаменатель = 2

Дробь 6

Введите числитель = - 8

Введите знаменатель = 1

Введенные дроби:

16/2 64/8 120/15 - 15/5 - 16/2 - 8/1

кол-во 5