Влад Подлесных
S:10:14:23 14.10
R:10:14:24 14.10
program Project1;
const n = 50;
var m: array [1..n] of integer;
pos,min,k, chislo,e,e1,count,i: integer;
s: string[5];
sum: real;
begin
e := 1;
k:= 0;
sum:= 0;
while not (e = 0) do begin
writeln(*Введите длину массива N*);
readln(s);
val(s,count,e);
if not(e = 0) then writeln(*Введите корректную длину*);
end;
for i:= 1 to count do begin
e1:= 1;
while not (e1 = 0) do begin
write(i); writeln(* Элемент массива*);
readln(s);
val(s,chislo,e1);
if not(e1 = 0) then writeln(*Введите вещественное число*);
end;
m[i]:= chislo;
end;
for i := 1 to count do if m[i] > 0 then begin sum:= sum+ m[i]; inc(k); end;
sum:= sum/k;
min:= m[1];
for i:= 1 to count do if m[i] < min then begin pos:= i; min:= m[i];end;
write(*Cреднее арифметическое - *); writeln(sum:3:2);
write(*Наименьший элемент - *); writeln(min);
write(*Его позиция - *); writeln(pos+1);
readln;
end.