Цитата:
Сообщение от PaskalABC.NET
А можно как ни будь этот же код, только сделать так, что бы кол-во чисел которые ввел, можно было через запятую писать, или через пробел
|
Не понял. Что значит "количество чисел через запятую"? Или Вам надо, чтобы можно было весь массив набить на экране а потом одним нажатием "Enter" его ввести? Можно. Но никаких запятых - только пробелы!!!
Сразу отмечу недостаток такого метода: Вы сами должны контролировать совпадение количества набранных чисел с введенной длиной массива.
Код:
uses crt;
var
c:array[1..100]of real;
k,i,n:byte;
s:real;
Begin
clrscr;
write('Vvedite kol-vo elementov: ');
readln(n);
writeln('Vvedite massiv:');
for i:=1 to n-1 do read(c[i]);
readln(c[n]);
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.