СРОЧНО!!! Составить программу вычисления суммы положительных элементов массива C[1..22]

Question

СРОЧНО!!! Составить программу вычисления суммы положительных элементов массива C[1..22]

Comments

На каком языке программирования надо написать программу?

Answer 1

На каком языке программирования надо написать программу?

Comments

на языке Паскаля

---

program Project1;
var
c: array[1..22] of integer;
i, sum: integer;
begin
for i := 1 to 22 do begin
Write("Введите ", i, " число: ");ReadLn(c[i]);
end;
sum := 0;
for i := 1 to 22 do begin
if c[i] > 0 then sum := sum + c[i];
end;
WriteLn("Сумма всех положительных элементов массива равна ", sum);
end.