Помогите написать программу в Паскаль АБС:-D Задан проходной балл. Запрашиваются оценки...

Question

Помогите написать программу в Паскаль АБС:-D
Задан проходной балл. Запрашиваются оценки абитуриента на 4 экзаменах и сообщается о результате приема в институт.

Comments

Вы массивы уже проходили, или нет?

---

Да через массив интересней было бы, сам бы написал

---

Хотя можно просто суммирование чисел цикл For и потом поделить на кол-во

Answer 1

Готово........................

Comments

Спасибо:-)

Answer 2

Вот так задача решается без массивов:
program score;
var a,b,c,d,sc:integer;   
res:integer;
begin
  write('Input 1st exam score:');
  readln(a);
  write('Input 2nd exam score:');
  readln(b);
  write('Input 3rd exam score:');
  readln(c);
  write('Input 4th exam score:');
  readln(d);
    write('Input pass score:');
  readln(sc);
  if (a+b+c+d) end.

Comments

Спасибо:-)