Цитата:
Сообщение от Sandra 2000
а можно еще вывести заданный массив после ввода элементов... извините я просто не хочу опять ошибок наделать
|
Легко:
Код:
uses crt;
var
c:array[1..100]of real;
k,i,n:byte;
s:real;
Begin
clrscr;
write('Vvedite kol-vo elementov: ');
readln(n);
for i:=1 to n do
begin
write('Vvedite znachenie: ');
readln(c[i]);
end;
for i:=1 to n do write(c[i]:8:3);
Writeln;
s:=0;
k:=0;
for i:=1 to n do
if (i mod 2=0) and (c[i]>0) then
begin
s:=s+c[i];
k:=k+1;
end;
writeln;
writeln('Srednee arifmetichescoe: ',s/k:0:5);
readkey;
End.