Question

Помогите пожалуйста;(


Вписать фрагмент программы, который соответствует описанию

 Одномерный массив N с 10 действительных чисел

Одномерный массив Date из 20 целых чисел

Сумма всех элементов массива,
который состоит из 30 элементов

Элементы произвольного массива равны квадратам своих индексов

Ввести с клавиатуры в массив 20 целых чисел



Задано массив, содержащий 50 целых чисел. Найти сумму положительных элементов массива.

Answer 1

1) var N: array [1..10] of real;
2) var Date: array [1..20] of integer;
3) var a: array [1..30] of integer;
i, sum: integer;
...
sum:=0;
for i:=1 to 30 do
sum:=sum+a[i];
...
4) for i:=1 to N do
a[i]:=i*i;
5) var Date: array [1..20] of integer;
i: integer;
...
for i:=1 to 20 do
readln(a[i]);
...
6) var a: array [1..50] of integer;
i, sum: integer;
...
sum:=0;
for i:=1 to 50 do
if a[i]>0 then sum:=sum+a[i];
...