Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
-1 / 0 / 0
Регистрация: 19.10.2013
Сообщений: 50
1

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

26.10.2013, 15:19. Просмотров 1920. Ответов 2
Метки нет (Все метки)

Результаты игр по футболу хранятся в массиве. Каждые три последовательных элемента массива содержат соответственно номер игры, количество забитых и количество пропущенных мячей. Определите и выведите на экран, в скольких играх разность забитых и пропущенных мячей больше трех.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2013, 15:19
Ответы с готовыми решениями:

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

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

Результаты соревнований по плаванию для N спортсменов хранятся в массиве K. Выбрать и напечатать лучший из них
результаты соревнований по плаванию для N спортсменов хранятся в массиве K. Выбрать и напечатать...

В двухмерном массиве хранятся результаты (время в минутах), показанные каждым из 12 автогонщиков
12.202. В двухмерном массиве хранятся результаты (время в минутах), показанные каждым из 12...

__________________
2
0 / 0 / 0
Регистрация: 26.10.2013
Сообщений: 2
26.10.2013, 15:45 2
Ну как скучно сидеть?
0
34 / 34 / 22
Регистрация: 23.03.2013
Сообщений: 176
26.10.2013, 16:00 3
Лучший ответ Сообщение было отмечено Anya Lukanina как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2013, 16:00

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

В массиве записаны результаты 20 игр футбольной команды. Определить количество выигрышей, количество ничьих и количество проигрышей данной команды
В массиве записаны результаты 20 игр футбольной команды(если игра окончилась выигрышем данной...

В текстовом файле хранятся результаты измерений температуры воздуха в течение недели:
В текстовом файле хранятся результаты измерений температуры воздуха в течение недели: на каждой...

В текстовом файле хранятся результаты измерений артериального давления пациента в течение недели
В текстовом файле хранятся результаты измерений артериального давления пациента в течение недели:...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.