Question

Даны два массива состоящих каждый из 8 ценах чисел, в каком массиве больше элементов кратных 5

Answer 1

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 k1<k2 then writeln ('vo 2 massive bolhe') else if  k1>k2 then writeln ('v 1 mssive bolhe') else writeln ('ravno');
End.