Паскаль
Написать программы: дан массив 1). найти количество элементов, которые кратны 5; 2). сумму элементов, которые стоят на четных местах.
axatar:
А количество элементов массива сколько?
Ответы
Ответ дал:
4
Ответ:
Объяснение:
var sum2,kol5,n,m:integer;
massiv:array[1..1000] of integer;
begin
readln(n); kol5:=0; sum2:=0;
for m:=1 to n do readln(massiv[m]);
for m:=1 to n do if(massiv[m] mod 5=0) then kol5:=kol5+1;
for m:=1 to n do if(m mod 2=0) then sum2:=sum2+massiv[m];
writeln(kol5,' ',sum2);
readln; end.
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад