1. Найти сумму 3-го и 10-го элементов массива A:array [1 ... 10] of real

2. Найти и вывести на экран сумму элементов массива из 10 чисел, кратных 3. Массив заполняется случайными числами.

var

mas:array[1 ... 10]of real;

i:integer;

s, s1:real;

begin

s:=0;

s1:=0;

writeln ('Элементы массива:');

for i:=1 to 10 do

begin

mas[i]:=Random (10) + 1;

write (mas[i],' ');

if (Round (mas[i]) mod 3=0) then s1:=s1+mas[i];

end;

s:=s+mas[1]+mas[10];

writeln ();

writeln ('Сумма элементов массива кратных 3-ем равна: ', s1);

writeln ('Сумма 1 и 10 элементов массива равна: ', s);

end.