50 баллов!
Lazarus проєкт, у якому вводяться значення елементів табличної величини з 20 дійсних чисел у багаторядковому текстовому полі, визначається кількість з них, які більші за 10, і результат виводиться в напис.
код в pascal
Lazarus проєкт, у якому вводяться значення елементів табличної величини з 20 дійсних чисел у багаторядковому текстовому полі, визначається кількість з них, які більші за 10, і результат виводиться в напис.
код в pascal
More Questions From This User See All
Answers & Comments
program LazarusProject;
var
inputString: string;
numbers: array[1..20] of real;
i, count: integer;
outputString: string;
begin
writeln('Введите 20 действительных чисел, разделенных пробелами:');
readln(inputString);
i := 1;
for var s in inputString.Split([' ']) do
begin
if TryStrToFloat(s, numbers[i]) then
begin
i := i + 1;
if i > 20 then
break;
end;
end;
count := 0;
for i := 1 to 20 do
begin
if numbers[i] > 10 then
count := count + 1;
end;
outputString := 'Количество значений, превышающих 10: ' + IntToStr(count);
writeln(outputString);
readln;
end.