Дан массив A[8] заполненный целыми числами от 0 до 40 .Найти сумму элементов массива не...

Question

Дан массив A[8] заполненный целыми числами от 0 до 40 .Найти сумму элементов массива не превышающих 25.
Помогите составить программу в Poskal.Заранее спасибо

Comments

Poskal - нет такого!!! Есть Pascal

---

Да нет , не за это , ну да ошибся в написании названия программы.Но я задал вопрос для того . чтобы мне помогли , потому что я в этом не разбираюсь , а не искать ошибку в написании программы

Answer 1

Пожалуй надо помочь, хоть название языка программирования узнали.

const n = 8;
var a:array[1..n] of integer;
  s,i:integer;
begin
  //Заполнение массива значениями в диапазоне
  //от 0 до 40
  //и одновременно находим нужную сумму
  s:=0;
  for i:=1 to n do begin
    a[i]:=random(41);
    if a[i]<=25 then s:=s+a[i];<br>    write(a[i]:3);
  end;
  writeln;
  writeln('Сумма элементов <=25 равна ', s);<br> end.