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

Question

1.Найти сумму 3-го и 10-го элементов массива A:array [1...10] of real 2.Найти и вывести на экран сумму элементов массива из 10 чисел , кратных 3 . Массив заполняется случайными числами.

Answer 1

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.