Question

50 баллов!
Lazarus проєкт, у якому вводяться значення елементів табличної величини з 20 дійсних чисел у багаторядковому текстовому полі, визначається кількість з них, які більші за 10, і результат виводиться в напис.
код в pascal

Answer 1

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.