ответ: 31
Обратите внимание на объяснение!
Объяснение:
У вас была неверно написан фрагмент программы, ниже исправил на правильную версию
var i, s: integer;
begin
s:=10;
for i:=10 to 11 do
s:=s+i;
write(s);
end.
Шаги программы:
1. Первый раз в цикле i равняется 10, поэтому мы к 10 прибавляем 10, получаем 20. Второй раз в цикле i равняется 11, поэтому уже к новому s (20) мы прибавляем 11, получаем 31.
2. На экран выводится результат действий, а именно 31
Если вас интересует переменная k, то вы можете поменять i на k, но привычнее использовать i
uses crt;
const nmax=20;
type matr=array [1..nmax,1..nmax] of integer;
mas=array [1..nmax] of integer;
var a: matr;
a1,a2,a3,a4: mas;
n,m: byte;
procedure Vvod (var z: matr; var ri,rj: byte);
var i,j: byte;
begin
repeat
write('Kol-vo strok, ne menee 4, ne bolee ',nmax,', n='); readln(ri);
until ri in [4..nmax];
repeat
write('Kol-vo stolbzov, ne bolee ',nmax,', n='); readln(rj);
until rj in [1..nmax];
writeln('Vvedite elementy matrizy:');
for i:=1 to ri do
for j:=1 to rj do
begin
write('a[',i,',',j,']='); readln(z[i,j]);
end;
end;
procedure Vivod (z: matr; ri,rj: byte);
var i,j: byte;
begin
writeln('Ischodnaja matriza');
for i:=1 to ri do
begin
for j:=1 to rj do
write(z[i,j]:4);
writeln;
end;
end;
procedure Vivod1M (c: char; z: mas; rj: byte);
var j: byte;
begin
writeln('Massiv ',c);
for j:=1 to rj do
write(z[j]:4);
writeln;
end;
procedure MakeArray (ns: byte; x: matr; var y: mas; rj: byte);
var j: byte;
begin
for j:=1 to rj do
y[j]:=x[ns,j];
end;
function Jmin (z: mas; rj: byte): byte;
var j,jm: byte;
begin
jm:=1;
for j:=1 to rj do
if z[j]<z[jm] then jm:=j;
Jmin:=jm;
end;
procedure Zamena (var z: mas; rj: byte);
var j: byte; g: integer;
begin
g:=z[Jmin(z,rj)];
if Jmin(z,rj)<rj then
for j:=Jmin(z,rj)+1 to rj do
z[j]:=g;
end;
begin
Vvod (a,n,m);
clrscr;
Vivod (a,n,m);
MakeArray (1,a,a1,m);
MakeArray (2,a,a2,m);
MakeArray (3,a,a3,m);
MakeArray (4,a,a4,m);
writeln('Massivy do preobrazovania');
Vivod1M ('1',a1,m);
Vivod1M ('2',a2,m);
Vivod1M ('3',a3,m);
Vivod1M ('4',a4,m);
Zamena (a1,m);
Zamena (a2,m);
Zamena (a3,m);
Zamena (a4,m);
writeln('Massivy posle zameny');
Vivod1M ('1',a1,m);
Vivod1M ('2',a2,m);
Vivod1M ('3',a3,m);
Vivod1M ('4',a4,m);
readln;
end.
