В массиве записаны результаты 20 игр футбольной команды

@Чеченец · Регистрация: 14.11.2012

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

@АББА · 21.02.2013, 09:54

QBasic/QuickBASIC

CLS
DIM a(4)
FOR i = 1 TO 4
INPUT a(i)
IF a(i) = 3 THEN viigrishi = viigrishi + 1
IF a(i) = -1 THEN nichya = nichya + 1
NEXT i
PRINT "koli4estvo viigreshey="; viigrishi
PRINT "kolichestvo nichyey="; nichya

@~~Апострофф~~ · 21.02.2013, 10:16

Не по теме:

АББА, ничья - это +1 очко (всё лучше, чем поражение):)

@АББА · 21.02.2013, 10:47

QBasic/QuickBASIC

1 2	DIM a(20) FOR I=1 TO 20

@Чеченец 1 / 1 / 1 Регистрация: 14.11.2012 Сообщений: 37
		1
	В массиве записаны результаты 20 игр футбольной команды 20.02.2013, 17:46. Показов 1720. Ответов 3 Метки нет (Все метки) 3. Одномерные массивы В массиве записаны результаты 20 игр футбольной команды (если игра закончилась выигрышем данной команды, то записаны число 3, проигрышем 0,если игра окончилась вничью – 1). Определить общее количество выигрышей и ничьих данной команды 0

@~~Апострофф~~
	21.02.2013, 10:16 #3
	Не по теме: АББА, ничья - это +1 очко (всё лучше, чем поражение):) 1

Опции темы