Определить разность между суммой элементов с четными индексами и суммой элементов, индексы которых кратны трем - Pascal ABC

Формулировка задачи:

Дан массив вещественных чисел Z(16). Определить разность между суммой элементов с четными индексами и суммой элементов, индексы которых кратны трем

Код к задаче: «Определить разность между суммой элементов с четными индексами и суммой элементов, индексы которых кратны трем - Pascal ABC»

textual
uses crt;
const n=16;
var a:array[1..n] of real;
    i:integer;
    s1,s2:real;
begin
randomize;
writeln('Массив');
s1:=0;
s2:=0;
for i:=1 to n do
 begin
  a[i]:=10*random;
  write(a[i]:4:1);
  if i mod 2=0 then s1:=s1+a[i];
  if i mod 3=0 then s2:=s2+a[i];
 end;
writeln;
write('Разность сумм=',s1-s2:0:1);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.000 из 5


СДЕЛАЙТЕ РЕПОСТ