Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Даны два массива состоящих каждый из 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.