Program naconecto;vara:array [1..2,1..2] of integer;b:array [1..2,1..2] of integer;i,j,s,p:integer; BEGINrandomize;s:=0;p:=1;for i:=1 to 2 do begin for j:=1 to 2 do begin A[i,j]:=random(-100,100); B[i,j]:=random(-100,100); if (A[i,j] mod 3 = 0) and (A[i,j] mod 5 = 0) then begin s:=s+A[i,j]; end; if B[i,j]<0 then begin p:=p*B[i,j]; end; end; end;writeln('npou3BegeHue=',p);writeln('cyMMa=',s);readln;END.
судя по твоей программы ты мыслишь так, когда говорят двумерный массив, ты думаешь что это нужно 2 отдельных массива сделать (получается одномерных), а не 1 (получается двумерный) и суёшь их каждый отдельно в один массив (двумерный), так появляется твой один двумерный, состоящий из двух одномерных. Задача хочет чтобы было два двумерных, например A и B. Ну а чтобы не создавать им 2 элемента внутри, можно рандомные числа ввести, чтобы не мучится вводить. И смотрю храмает в районе записей A[j] и A[i,j]. Разница в том, что в двумерном массиве в Pascal'e запись A[j] когда двумерный массив у тебя выведет все значения у номера столбца (что явл. j например 1), это те что сверху вниз. A[i] выведет значения всех данных первой строки (если I = 1). Чтоб конкретно к яйчейке обратится, нужно указать A[i,j] например A[1,2] будет ячейка первой строки отступом и второго столбца (отступом сверху). Представлять можно таблицой.
// PascalABC.NET 3.2, сборка 1346 от 25.11.2016 // Внимание! Если программа не работает, обновите её версию!
// сортировка выбором procedure SortBySelect(var a:array of integer); begin var j:=a.High; while j>0 do begin var mx:=a[0]; var imx:=0; for var i:=1 to j do if a[i]>mx then begin mx:=a[i]; imx:=i end; a[imx]:=a[j]; a[j]:=mx; j-=1 end end;
begin var a:=ArrRandom(10,-20,20); a.Println; SortBySelect(a); a.Println end.
