- 01.01.2018 00:39
- Информатика
- remove_red_eye 11401
- thumb_up 36
Ответы и объяснения 1
i, n: integer;
begin
Ves[1] := 25; Ves[2] := 21; Ves[3] := 23; Ves[4] := 28;
Ves[5] := 30;Ves[6] := 25;Ves[7] := 31; Ves[8] := 28;
Ves[9] := 25;Ves[10] := 28;Ves[11] := 30;Ves[12] := 27;
Ves[13] := 26;Ves[14] := 24;
n := 0;
for i := 1 to 14 do begin
if Ves[i] > 26 then
n := n + 1
end;
writeln(n);
end.
Ответ
7
- 02.01.2018 00:58
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.