Ответ(ы) на вопрос:
Гость1)
var n,k,i:integer;
begin
for i:=1 to 6 do begin
readln(n);
if (n < 0) and (n mod 3 <> 0) then
k:=k+1;
end;
writeln(k);
end.
2)
var n,a,k,i:integer;
s:real;
begin
readln(n);
k:=0;
s:=0;
for i:=1 to n do begin
readln(a);
s:=s+a;
k:=k+1;end;
writeln(s/k);
end.
3)
var n,a,k,i:integer;
begin
readln(n);
k:=0;
for i:=1 to n do begin
readln(a);
if ((a mod 100) div 10 >=0) and ((a mod 100) div 10 <= 2) then k:=k+1;
end;
writeln(k);
end.
4)
var a,min,k,i,n:integer;
begin
readln(n);
readln(a);
min:=a;
k:=1;for i:=2 to n do begin
readln(a);
if a < min then begin
min:=a;
k:=i;end;
end;
writeln('Минимум: ',min,', его номер - ',k);
end.
Не нашли ответ?
Похожие вопросы