Выяснить, верно ли, что сумма тех вещественных чисел , которые больше 20,5, мен

[Anonim123]

Даны натуральное число n и целые числа х1,х2,…,хn. Выяснить, верно ли, что сумма тех вещественных чисел , которые больше 20,5, меньше p.

[Vanta11a]

Выяснил. Иногда верно, иногда нет.

Что сделано самостоятельно?

[Anonim123]

var
  a: array[1..10]of real;
  i, n, p, k: integer;

begin
  write('Введите число n: ');
  read(n);
  write('Введите число p: ');
  read(p);
  for i := 1 to n do
  begin
    write('a[', i, ']=');
    read(a[i]);
  end;
  writeln;
  k := 0;
  for i := 1 to 10 do
    if a[i] <= 20.5 then 
      k := k + 1;
  if k < p  then 
    writeln('Верно')
  else writeln('Неверно');
end.

Получилось вот так, но что-то не уверена в правильности.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Anonim123]

var
p, s, n, i, x: integer;

begin

x := 0; //обнуляем x
Readln(n);//считываем n
readln(p);
for i := 1 to n do
begin
Readln(x);//ввод числа
if x < 220.5 then//проверка (x меньше 20.5?)
s := s + x;//считаем сумму
end;
if s > p then //проверка (s больше p?)
Writeln('Да') else
Writeln('Нет');
end.

И вот такая версия еще.

[Anonim123]

var
p, s, n, i, x: integer;

begin

x := 0; //обнуляем x
Readln(n);//считываем n
readln(p);
for i := 1 to n do
begin
Readln(x);//ввод числа
if x < 220.5 then//проверка (x меньше 20.5?)
s := s + x;//считаем сумму
end;
if s > p then //проверка (s больше p?)
Writeln('Да') else
Writeln('Нет');
end.

И вот такая версия еще.

[ZX Spectrum-128]

Первый вариант точно неверный (считается количество), а второй. У вас разве нет компилятора паскаля, чтобы проверить?

[Anonim123]

Есть Программа выполняется, я просто сомневалась так ли сумму записала. Но сейчас уже посчитала, вроде все правильно считает. Спасибо за ответ Вам