Var a:array [1..10, 1..10] of integer; i, j, max, min, imin, imax, jmin, jmax:integer; begin imax:=0; imin:=0; jmax:=0; jmin:=0; max:=-maxint; min:=maxint; for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=random(89)+10; write(a[i,j],' '); if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; end; writeln; end; writeln; writeln('Максимальный элемент:',max); writeln('Его индекс ',imax,' ',jmax); writeln('Минимальный элемент:',min); writeln('Его индекс ',imin,' ',jmin); end.
Var a:array [1..10, 1..10] of integer; i, j, max, min, imin, imax, jmin, jmax:integer; begin imax:=0; imin:=0; jmax:=0; jmin:=0; max:=-maxint; min:=maxint; for i:=1 to 10 do begin for j:=1 to 10 do begin a[i,j]:=random(89)+10; write(a[i,j],' '); if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j; end; if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end; end; writeln; end; writeln; writeln('Максимальный элемент:',max); writeln('Его индекс ',imax,' ',jmax); writeln('Минимальный элемент:',min); writeln('Его индекс ',imin,' ',jmin); end.
var K, O: real;
begin
read(K);
O:= K/5;
write(K-O);
end.
Ввод 1 - кол-во косуль
Вторая задача:var P, M, N: integer;
begin
read(P);
M:= P*10;
read(N);
write(M*N);
end.
Ввод 1 - стоимость пенала
Ввод 2 - во сколько раз портфель дешевле компьютера