Помогите пожалуйста! Лабораторная работа по информатике Паскаль абс "Найти сумму и...

Question

Помогите пожалуйста!
Лабораторная работа по информатике
Паскаль абс
"Найти сумму и количество чисел, больших единицы, из 5 введенных с клавиатуры."

Comments

если я тебе напишу это все на с++ сможешь переделать в паскаль?

---

окей1

---

я думаю не сможешь) там разные операторы и все придется переделывать заново) это будет очень долго

---

блин

---

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

Answer 1

var 
 a:array[1..5] of integer; 
 i,s,k:byte;
begin 
 writeln('Введите 5 чисел'); 
 for i:=1 to 5 do 
begin   
 write(i,')');      
 readln(a[i]);     
  if (a[i]>1) then   
begin     
 s:=s+a[i];     
 k:=k+1;   
 end; 
end; 
 writeln('Сумма:',s,'. Кол-во:',k);
end.

Comments

Спасибо)))))

---

Пожалуйста, брро