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

1

Ответы и объяснения

2013-09-11T14:26:02+04:00
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.