Результаты игр по футболу хранятся в массиве. Каждые три последовательных элемента массива содержат соответственно номер игры, количество забитых и количество пропущенных мячей. Определите и выведите на экран общее количество з...
Результаты игр по футболу хранятся в массиве. Каждые три последовательных элемента массива содержат соответственно номер игры, количество забитых и количество пропущенных мячей. Определите и выведите на экран общее количество забитых и общее количествопропущенных мячей.
Гость
Ответ(ы) на вопрос:
Гостьvar
z,i,p:integer;
m:array[1..21]of integer;
begin
writeln('Массив:');
for i:=1 to 21 do
begin
m[i]:=random(3);
if i mod 3=1 then m[i]:=(i div 3)+1;
write(m[i],' ');
if i mod 3=2 then z:=z+m[i];
if i mod 3=0 then p:=p+m[i];
end;
writeln;
writeln('Всего забито: ',z);
writeln('Всего пропущено: ',p);
end.
Не нашли ответ?
Похожие вопросы