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

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.