Задача с массивом

[dima755]

Загрузить массив из N элементов генератором псевдослучайных чисел в интервале [-70;45]. Элементы большие -50, меньшие 20 и кратные 6 , с номерами большими 23 и меньшими 72 и кратными 2, умножить на их номер и сосчитать сумму неизмененных подходящих элементов. В заавершении вывести найденную сумму подходящих элементов и весь массив.

[challengerr]

program forum1;

uses math;

var
i:integer;
exarray :array[1..100] of integer;
sum : integer;

begin
sum := 0;

randomize;

{ загрузка массива генератором псевдослучайных чисел }
for i:=low(exarray) to high (exarray) do
exarray[i] := ceil(randomrange(-70, 45));


{ элементы с номерами большими 23 и меньшими 72 и кратными 2 }
for i:=23 to 72 do
begin
{ элементы с номерами  кратными 2 }
if i mod 2 = 0 then
begin

{ элементы большие -50 меньшие 20 кратные 6 }
if (exarray[i] > - 50) and (exarray[i] < 20) and (exarray[i] mod 6 = 0) then
begin

{ условие "неизмененных" не понял : неизмененным элемент остается если умножается на 1, но индекса 1 нет,
 тогда задача лишается смысла так как сумма равна 0 во всех случаях }
{ сосчитать сумму подходящих элементов умноженых на их номер }
sum := sum + exarray[i]  * i ; 
end;

end;
end;


{ вывод всего массива }
for i:=low(exarray) to high (exarray) do
writeln(' : ', i, ' ', exarray[i] );

{ вывод суммы подходящих элементов }
writeln(' : sum :  ', sum  );


end.

[dima755]

А если сделать так:

program otvet;
uses crt;
var n,i,s:integer;
     a:array [1..100] of integer;
begin;
clrscr;
write('vvedy kol-vo elementov);
read(n);
 for i:=1 to n do begin
   a[i]:=random(115)-70;
write (a[i],' ');
end;
writeln;
i:=24;
while i<72 do begin
   if(a[i]>-50) and (a[i]<20) and (a[i] mod 6=0) then
   begin
a[i]:=a[i]*a[i];
S:=S+a[i];
end;
writeln ('S=',S);
for i:=1 to n do
write (a[i],' ');
readkey;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.