I. "программирование"- язык паскаль (авс) написать программы, решающие следующие : 1) дан одномерный массив из 10 целых чисел. необходимо вывести на экран порядковый номер наибольшего числа. 2) дан одномерный массив из 6 рациональных чисел. написать алгоритм подсчета элементов массива, значения которых кратны числу k (число k вводится пользователем)
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