Даны два массива состоящих каждый из 8 ценах чисел, в каком массиве больше элементов кратных 5
Даны два массива состоящих каждый из 8 ценах чисел, в каком массиве больше элементов кратных 5
Гость
Ответ(ы) на вопрос:
ГостьPascal
Var a, b : array [1..8] of longint ;
k1,k2,i: longint ;
Begin
For i:=1 to 8 do
Read (a[i]);
For i:=1 to 8 do
Read(b[i]);
For i:= 1 to 8 do
Begin
If a[i] mod 5=0 then k1:=k1+1;
If b[i] mod 5=0 then k2:=k2+1;
End;
If k1k2 then writeln ('v 1 mssive bolhe') else writeln ('ravno');
End.
Не нашли ответ?
Похожие вопросы