Найти сумму значений элементов массива, больших некоторой величины М - Pascal ABC

Формулировка задачи:

Дан массив А из 10 элементов. Найти сумму значений элементов массива, больших некоторой величины М. Помогите пожалуйста

Код к задаче: «Найти сумму значений элементов массива, больших некоторой величины М - Pascal ABC»

textual
program SUMMA10; {Заполнение массива}
 const n=10;    {вводом с клавиатуры}
 var s,i,m:integer;
     a:array [1..n] of integer;
begin
 for i:=1 to n do
  begin
   write(‘Введите,a[’,i,’]=’);
   readln(a[i]);
  end;
 writeln(‘Исходный массив:’);
 for i:=1 to n do
  write(a[i],‘ ’); 
 writeln;
 write(‘Введите значение для поиска:’);
 readln(m);
 s:=0;
 for i:=1 to n do 
  if a[i]>m
   then s:=s+a[i];
 writeln('Сумма s=',s)
end.

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ