Напишите что делает программка по пунктамProgram gt;var a:array[1..1000]of

Напишите что делает программка по пт

Program gt;
var a:array[1..1000]of real;
n,i:integer;
s,b:real;
begin
readln(n); //n- кол-во чисел массива
readln(b); //b-число которое вводиться с клавиатуры для проверки
s:=0;
for i:=1 to n do
begin
read(a[i]);
if (a[i] gt; b) then s:=s+a[i];
end;
writeln(s);
end.

Задать свой вопрос
1 ответ

Добавляет 1+1,1+2,1+3 и так дальше

Ева Залежская
Мне необходимо чтоб было по пт
Denis Shangereev
1. Начало и тд
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт