1) Дан массив целых чисел. Найти удвоенную сумму положительных элементов. 2)Дан Массив...

Question

1) Дан массив целых чисел. Найти удвоенную сумму положительных элементов.
2)Дан Массив целых чисел из 33 элементов, заполненный случайным образом числами из промежутка [0,95]. Вывести на экран все элементы , кратные 13.

____
Все это через FreePascal.
Заранее спасибо!

Answer 1

1)
const n=10; 
var a:array[1..n] of integer;
i,s:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(51)-25;
 write(a[i]:4);
 end;
writeln;
s:=0;
for i:=1 to n do
 if a[i]>0 then s:=s+a[i];
s:=2*s;
writeln('s = ',s);
end.

Пример:
Массив A:
  20 -22  -1  12  -2 -11  18 -17  22  18
s = 180

2)
const n=33; 
var a:array[1..n] of integer;
i:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(96);
 write(a[i]:3);
 end;
writeln;
for i:=1 to n do
 if a[i] mod 13 = 0 then write(a[i]:4);
end.

Пример:
Массив A:
 45 33 64 67 83 50 44 68 49 62 77 12 30 48  9 11 54 11 63  2 32 56 60 45 18 75 94 26 14 78  5 20 51
  26  78