Результаты игр по футболу хранятся в массиве

@Anya Lukanina · Регистрация: 19.10.2013

Author24 — интернет-сервис помощи студентам

Результаты игр по футболу хранятся в массиве. Каждые три последовательных элемента массива содержат соответственно номер игры, количество забитых и количество пропущенных мячей. Определите и выведите на экран, в скольких играх разность забитых и пропущенных мячей больше трех.

@Canek332220 · 26.10.2013, 15:45

Ну как скучно сидеть?

@Kam_1995 · 26.10.2013, 16:00

Pascal

uses crt;
var  a: array[1..100] of integer;
     n,i,j,k: integer;
 
BEGIN
clrscr;
j:=0;k:=0;
write('Skolko igr sostoyalos? n=');
readln(n);
for i:=4 to 3*(n+1) do
begin
if (i mod 3 = 1) then begin inc(j); a[i]:=j; end;
if (i mod 3 = 2) then a[i]:=1+random(2);
if (i mod 3 = 0) then a[i]:=4+random(4);
end;
 
for i:=4 to 3*(n+1) do
begin
if (i mod 3 = 2) then if abs(a[i]-a[i+1])>3 then inc(k);
end;
writeln('Vsego ',k,' igr, v kotorix raznost zabitix i propushennix machey >3');
 
repeat until keypressed;
end.

@Anya Lukanina -1 / 0 / 0 Регистрация: 19.10.2013 Сообщений: 50
		1
	Результаты игр по футболу хранятся в массиве 26.10.2013, 15:19. Показов 2404. Ответов 2 Метки нет (Все метки) Результаты игр по футболу хранятся в массиве. Каждые три последовательных элемента массива содержат соответственно номер игры, количество забитых и количество пропущенных мячей. Определите и выведите на экран, в скольких играх разность забитых и пропущенных мячей больше трех. 0

@Canek332220 0 / 0 / 0 Регистрация: 26.10.2013 Сообщений: 2
	26.10.2013, 15:45	2
	Ну как скучно сидеть? 0

	26.10.2013, 16:00

Результаты игр по футболу хранятся в массиве

Решение