решить задачу на Паскале Дано N действительных случайных чисел в диапазоне от 1 до 10. Все элементы - id1429326320200525 от SashaPolishuk 25.05.2020 15:23

Question

Информатика: решить задачу на Паскале Дано N действительных случайных чисел в диапазоне от 1 до 10. Все элементы последовательности, значение которых меньше двух, заменить на ноль, кроме того, получить сумму элементов, находящихся в диапазоне от 3 до 6, а также подсчитать их количество.

SashaPolishuk · Accepted Answer

Program WordsCounter(output);
var str: string;
i, count: integer;
begin
write('Сторка: ');
readln(str);
i := length(str);
if i > 0 then begin
count := 1;
while i > 0 do begin
if str[i] = ' ' then
count := count + 1;
i := i - 1;
end;
end
else
count := 0;
writeln('Число слов: ', count);
readln;
end.

MOGZ ответил