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

Не знаю, как я буду доказывать это, но программы действительно работают, так что большое спасибо))

Не за что=)

А можно еще вопрос? А как написать " if значение кратно, то прибавим 1

1)beginvar 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;beginwrite('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 dowrite(a[i].ch,'/',a[i].zn,'   ');writeln;j:=0;for var i:=1 to n doif (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