proBEERka » 25 дек 2009, 23:22
1.Задан одномерный целочисленный массив из n элементов (n ≤ 20, вводится пользователем с клавиатуры).
Найти:
1.Суму элементов массива с четным номером.
2.Номеры элементов, превышающих среднего арифметического всех элементов массива.
3.Найменший с нечетным элементов массива.
program proBEERka;
uses crt;
var a:array [1..13] of integer;
i,s,min:integer;
sa:real;
begin
clrscr;
randomize;
for i:=1 to 13 do begin
a:=random(100)-50;
writeln(i,' element =',a);
end;
s:=0;
sa:=0;
for i:=1 to 13 do begin
if not(odd(i)) then
s:=s+a;
end;
writeln('suma=',s:4);
for i:=1 to 13 do
if i>sa then
sa:=(sa+a)/i;
writeln('element nomer ',i,' bilshe serednyogo arefmetuchnogo');
for i:=1 to 13 do
min:=a[1];
if ( i mod(2)<>0) and (a<min) then
min:=a;
writeln ('naymenshuy element',i);
readkey;
end.
Помогите подправить код... заранее спс...
1.Задан одномерный целочисленный массив из n элементов (n ≤ 20, вводится пользователем с клавиатуры).
Найти:
1.Суму элементов массива с четным номером.
2.Номеры элементов, превышающих среднего арифметического всех элементов массива.
3.Найменший с нечетным элементов массива.
program proBEERka;
uses crt;
var a:array [1..13] of integer;
i,s,min:integer;
sa:real;
begin
clrscr;
randomize;
for i:=1 to 13 do begin
a[i]:=random(100)-50;
writeln(i,' element =',a[i]);
end;
s:=0;
sa:=0;
for i:=1 to 13 do begin
if not(odd(i)) then
s:=s+a[i];
end;
writeln('suma=',s:4);
for i:=1 to 13 do
if i>sa then
sa:=(sa+a[i])/i;
writeln('element nomer ',i,' bilshe serednyogo arefmetuchnogo');
for i:=1 to 13 do
min:=a[1];
if ( i mod(2)<>0) and (a[i]<min) then
min:=a[i];
writeln ('naymenshuy element',i);
readkey;
end.
Помогите подправить код... заранее спс...