Цикл for

@kirill_frolov · Регистрация: 15.04.2012

Author24 — интернет-сервис помощи студентам

1)

Pascal

const x:array[1..8] of integer=(1,8,1,2,8,1,8,4);
var S,k,t,F:integer;
begin
s:=0;
for k:=1 to 8 do
if (k=1) or (S<=x[k]) then begin S:=x[k];t:=k
end;
F:=x[t];
x[t]:=x[t+1];
x[t+1]:=F;
writeln(x[t]+x[t-1]0;
end.

2)

Pascal

s-?
s:=5;
for i:=1 to 4 do
for j:=1 to 4 do if (j+i)mod 2<>0 then b[i,j]:=2*j*i else b[i,j]:=i*j;
for j:=1 to 4 do s:=s+b[5-j,i];

3)

Pascal

type mass=array[1..3] of integer;
       mtr=array[1..3] of mass;
var i,j:integer;
c:mass;
const a:mtr=((15,-2,4),(11,-3,9),(5,-6,7));
begin
for i:=1 to 3 do begin
c[i]:=3-i;
for j:=1 to 3 do c[i]:=c[i]+a[i,j]
end;
writeln(c[2]);
end.

помогите подробно разобраться в этом

@Владимир_ВМ · 25.06.2012, 23:05

А разве константные выражения менять можно (x[t]:=x[t+1])? Я думаю работать не будет. Но в общем суть первой задачи заключается в поиске максимального числа S и его порядкового номера t. Дальше он меняется местами с следующим и на экран выводится сумма элемента который поменялся местами с максимальным и предыдущего от него. Однако есть ошибки.
Во второй задаче если элемент массива на нечетном месте то его значение увеличивается в 2*i*j иначе в i*j раз. Далее вычисляется сумма всех элементов четвортого столбца плюс 5.

@Владимир_ВМ 128 / 109 / 103 Регистрация: 16.05.2011 Сообщений: 340
	25.06.2012, 23:05	2
	А разве константные выражения менять можно (x[t]:=x[t+1])? Я думаю работать не будет. Но в общем суть первой задачи заключается в поиске максимального числа S и его порядкового номера t. Дальше он меняется местами с следующим и на экран выводится сумма элемента который поменялся местами с максимальным и предыдущего от него. Однако есть ошибки. Во второй задаче если элемент массива на нечетном месте то его значение увеличивается в 2ij иначе в i*j раз. Далее вычисляется сумма всех элементов четвортого столбца плюс 5. 0