Дан двухмерный массив из двух строк и 22 столбцов. В его 1-ой строке записано количество мячей, забитых футбольной командой в той или иной игре, во 2-ой –количество пропущенных мячей в этой же игре. Определить количество ничьих данной команды — Pascal(Паскаль)

uses crt;
var
foot:array[1..2,1..22] of integer;
i,j,nich:integer;
begin
nich:=0;
for i:=1 to 2 do
 for j:=1 to 22 do
 readln(foot[i,j]);
  for j:=1 to 22 do
   if foot[1,j]=foot[2,j] then nich:=nich+1;
  writeln('количество ничьих равно  ',nich);
 end.

Похожие записи/страницы:

Leave a Comment

− 7 = 2