I. "Программирование"- язык Паскаль (авс) Написать программы, решающие следующие задачи:...

Question

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

Comments

begin var a:=ReadArrInteger('Введите 10 чисел:',10); var i:=a.IndexMax; Writeln('Максимум A[',i+1,']=',a[i]);end.

Answer 1

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

Comments

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

---

Не за что=)

---

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