Вычислить разность между суммой элементов, стоящих на четных и нечетных местах

@Maxonz · Регистрация: 11.01.2016

Author24 — интернет-сервис помощи студентам

В заданном одномерном массиве F(N) (N<=50) вычислить разность между суммой элементов, стоящих на четных мечтах, и суммой элементов, стоящих на нечетных местах. Найденным значением заменить положительные элементы массива. Преобразованный массив вывести на экран, а так же сделать Блок-Схемы.

@1agaka1 · 12.01.2016, 18:53

Pascal

var
a:array[1..50] of integer;
i,s1,s2,s,n:integer;
begin
writeln('Введите количество элиментов');
readln(n);
for i:=1 to n do begin 
 a[i]:=random(20)-10;
 write(a[i],';');
end;
writeln;
s1:=0;
s2:=0;
for i:=1 to n do begin 
 if (i mod 2 = 0)then s1:=s1+a[i];
 if (i mod 2 <> 0)then s2:=s2+a[i];
 end;
 writeln('Сумма на четных местах = ',s1);
 writeln('Сумма на нечетных местах =' ,s2);
 s:=s1-s2;
 writeln('Разность = ',s);
 for i:=1 to n do begin
  if a[i]>=0 then a[i]:=s;
   write(a[i],';');
 end;
end.

@Maxonz 0 / 0 / 0 Регистрация: 11.01.2016 Сообщений: 3
		1
	Вычислить разность между суммой элементов, стоящих на четных и нечетных местах 12.01.2016, 14:31. Показов 2861. Ответов 1 Метки нет (Все метки) В заданном одномерном массиве F(N) (N<=50) вычислить разность между суммой элементов, стоящих на четных мечтах, и суммой элементов, стоящих на нечетных местах. Найденным значением заменить положительные элементы массива. Преобразованный массив вывести на экран, а так же сделать Блок-Схемы. 0

	12.01.2016, 18:53

Вычислить разность между суммой элементов, стоящих на четных и нечетных местах

Решение