Ввести одномерный массив ,состоящий из четырех элементов.Вывести ** экран количество...

Question

Ввести одномерный массив ,состоящий из четырех элементов.Вывести на экран количество элементов массива больще 73.

ХЕЕЕЛП У МЕНЯ КОНТРОЛЬНАЯ!!!!!

Comments

кто-нибудь

---

помогите

---

я здесь, почти готово

---

спасибо

---

большое

---

блок-схема нужна?

---

а времени нет ушёл

---

не надо

---

ну пожалуйста

---

да уже более же ничего не нужно

Answer 1

Program naconecto;varA:array[1..4]of integer;i,sum:integer;BEGINrandomize;for i:=1 to 4 do  begin    a[i]:=random(-100,1000);    if a[i] > 73 then      begin        writeln('a[',i,']=',a[i]);        sum:=sum+1;      end;  end;  writeln('CyMMa=',sum)END.