Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
14
var
n,i,a: integer;
begin
readln(n);
for i: =1 to n do
read(a);
write(abs(a),' ');
end;
end.
a: array[1..31] of real;
i,k: integer;
min: real;
min: =50;
for i: =1 to 31 do
readln(a[i]);
if a[i]< min then min: =a[i];
k: =0;
if a[i]=min then k: =k+1;
writeln(k);
f8 формула: =b12*5. b5 формула: =а4+d6. c7 формула: =d6/$a$2. f9 формула: =$c$5-g1. e5 формула: =c$5-$e9.
Популярные вопросы