Имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4)

@lesopoval · Регистрация: 24.09.2015

Имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4).
Delphi 7. В консольном варианте

@Puporev · 30.10.2015, 18:37

Вводим N.
Вводим массив из N оценок.
Ищем оценку меньше 4.

Delphi

i:=1;
k:=0;
while(i<=n)and(k=0) do
if a[i]<4 then k:=1
else i:=i+1;
if k=1 then неуспевающий 
else успевающий

@lesopoval 1 / 1 / 0 Регистрация: 24.09.2015 Сообщений: 57
		1
	Имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4) 30.10.2015, 18:10. Показов 2244. Ответов 1 Метки нет (Все метки) Имеется n итоговых оценок студента. Определите, является ли студент неуспевающим (имеются оценки ниже 4). Delphi 7. В консольном варианте 0

Опции темы

Решение