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