Предмет: Информатика,
автор: макасум
Помогите решить задачу по паскалю, пожалуйста.
Прочитать с экрана 10 целых чисел. Сосчитать сколько среди них меньше 4. Результат напечатать.
Ответы
Автор ответа:
0
var
i, c: Integer;
A: array [1..10] of Integer;
begin
Writeln ('Введите десять целых чисел:');
for i := 1 to 10 do begin
Write ('Введите ' + IntToStr (i) + '-е число: ');
ReadLn (A [i]);
end;
c := 0;
for i := 1 to 10 do begin
if A [i] < 4 then
Inc (c);
end;
WriteLn ('Количество чисел меньше четырех = ' + IntToStr (c));
end;
Похожие вопросы
Предмет: Математика,
автор: matvejmazykin1166
Предмет: Русский язык,
автор: tomkinaana3
Предмет: Математика,
автор: shakimlyazzat
Предмет: Обществознание,
автор: Аноним
Предмет: География,
автор: Нас12тю12ша12