Сравните технологии индивидуальной и коллективной обработки данных
Ответы
var
i: Integer;
l: Single;
counter: Integer;
begin
counter := 0;
for i := 0 to 14 do begin
Read(l);
if l >= 165 then
counter := counter + 1 ;
end;
Writeln(counter);
end.
Второй вариант
const
cN: Integer = 15;
cMinSuitableLength: Single = 165;
var
arr: array [0..14] of Single;
i, counter: Integer;
begin
for i := 0 to Length(arr) - 1 do
Read(arr[i]);
counter := 0;
for i := 0 to Length(arr) - 1 do
if arr[i] >= cMinSuitableLength then
counter := counter + 1;
Writeln(counter);
end.
Объяснение:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Процессор это устройство ввода или вывода информации?
Автор: О. Карпов1691
решить задания по информатике
Автор: Tatarnikova1507
Чим характеризуються проекти різних галузей застосування?
Автор: smirnovaL1286
Написать программу в паскале вводим число, проверить извлекается из него корень?
Автор: Svetlana290419
Көк түсті блок қалай аталады информатика пәні
Автор: ирина Альбертовна
var
i: Integer;
l: Single;
counter: Integer;
begin
counter := 0;
for i := 0 to 14 do begin
Read(l);
if l >= 165 then
counter := counter + 1 ;
end;
Writeln(counter);
end.
Второй вариант
const
cN: Integer = 15;
cMinSuitableLength: Single = 165;
var
arr: array [0..14] of Single;
i, counter: Integer;
begin
for i := 0 to Length(arr) - 1 do
Read(arr[i]);
counter := 0;
for i := 0 to Length(arr) - 1 do
if arr[i] >= cMinSuitableLength then
counter := counter + 1;
Writeln(counter);
end.
Объяснение: