(

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

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

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

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

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

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

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

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];
...