Получив на вход натуральное число x, этот алгоритм печатает два числа: a и b. Укажите наименьшее натуральное число, при вводе которого алгоритм печатает сначала 6, а потом 7.
1. var x : array[1..1000] of integer; n,i,max,min : integer; begin write('n = '); readln(n); writeln('Исходный массив:'); for i:=1 to n do begin write('x[',i,']='); readln(x[i]); end; writeln; max:=x[1]; min:=x[1]; for i:=2 to n do begin if x[i] > max then max:=x[i]; if x[i] < min then min:=x[i]; end; writeln('max=',max,' min=',min); writeln('Среднее = ',(max+min)/2:5:2); end.
Const n = 5; var a,b : array [1..n] of integer; i,s,k1,k2,max,min : integer;
begin for i := 1 to n do readln (a[i]); for i := 1 to n do writeln (i,')elem = ',a[i]); end.
begin for i := 1 to n do a[i] := i * 3; for i := 1 to n do writeln (i,')elem = ',a[i]); end.
begin s := 0; for i := 1 to n do begin readln (a[i]); s := s + a[i]; end; writeln (s); end.
begin k1 := 0; k2 := 0; for i := 1 to n do begin readln (a[i]); if a[i] > 0 then k1 := k1 +1; if a[i] < 0 then k2 := k2 +1; end; writeln ('+ ',k1); writeln ('- ',k2); end.
begin k1 := 0; k2 := 0; for i := 1 to n do begin readln (a[i]); if (a[i] > 0) and (i mod 2 = 1) then k1 := k1 +1; if (a[i] < 0) and (i mod 2 = 0) then k2 := k2 +1; end; writeln ('+ ',k1); writeln ('- ',k2); end.
begin for i := 1 to n do begin readln (a[i]); if a[i] < 0 then b[i] := sqr (a[i]); if a[i] > 0 then b[i] := a[i] * a[i] * a[i]; end; for i := 1 to n do write (a[i],' '); writeln (); for i := 1 to n do write (b[i],' '); end.
begin for i := 1 to n do readln (a[i]); max := a[1]; min := a[1]; for i := 2 to n do begin if a[i] > max then max := a[i]; if a[i] < min then min := a[i]; end; writeln ('max=',max); writeln ('min=',min); end.
begin for i := 1 to n do readln (a[i]); writeln ('found :'); readln (s); k1 := 0; k2 := 0; for i := n downto 1 do if a[i] = s then begin k1 := k1 + 1; k2 := i; end; writeln ('k=',k1); writeln ('i=',k2); end.
Бери те переменные, которые используются в конкретной программме.
var x : array[1..1000] of integer;
n,i,max,min : integer;
begin
write('n = ');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do begin
write('x[',i,']=');
readln(x[i]);
end;
writeln;
max:=x[1]; min:=x[1];
for i:=2 to n do
begin
if x[i] > max then max:=x[i];
if x[i] < min then min:=x[i];
end;
writeln('max=',max,' min=',min);
writeln('Среднее = ',(max+min)/2:5:2);
end.
Пример:
n = 5
Исходный массив:
x[1]=12
x[2]=45
x[3]=60
x[4]=72
x[5]=68
max=72 min=12
Среднее = 42.00
2.
begin
var n:=ReadInteger('n = ');
var a:=ReadArrInteger('Вводите массив:',n);
Writeln('Max = ',a.Max);
Writeln('Min = ',a.Min);
Writeln('Среднее = ',(a.Max+a.Min)/2);
end.