Pascal: Дан двумерный массив, который содержит не более 10 строк и не более 10 с...

August 2022 1 33 Report

Pascal:
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Найти сумму элементов, которые расположены за максимальным элементом.

Answers & Comments

ychilkati Const n=10; m=10;var A: array [1..n,1..m] of integer;indstr, indstolb, s, i, j: integer;beginrandomize;for i:= 1 to n dobeginfor j:= 1 to m dobeginA[i,j]:= 10 + random (90);write (A[i,j]: 5);end;writeln;end;A[indstr, indstolb]:=A[1,1];for i:= 1 to n do for j:= 1 to m do if A[i,j] > A[indstr, indstolb] then begin indstr:=i; indstolb:=j; end;for i:= 1 to n do for j:= 1 to m do if (i>indstr) and (j>indstolb) then s:=s+A[i,j]; writeln('s = ' ,s);end.

0 votes Thanks 0

jaffrey Скопируйте ещё раз

Answers & Comments

tema odnomernye massivy variant 10 pascal 1dan odnomernyj massiv kotoryj so

pascal dana pryamougolnaya tablica kotoraya soderzhit ne bolee 10 strok i ne bole

pascalchisla fibonachchi opredelyayutsya po sleduyushemu zakonu a11 a21 an1anan

dan odnomernyj massiv kotoryj soderzhit ne bolee 60 veshestvennyh chisel sredi ko

kakova linejnaya posledovatelnost genov akmr esli chastota krossingovera mezh

pascalv oblasti 10 rajonov dlya kazhdogo rajona izvestny ploshadi zaseyannye pshen

pascaldan dvumernyj massiv kotoryj soderzhit ne bolee 10 strok i ne bolee 10 st

pascal dan naturalnyj otrezok chisel ab najti te chisla etogo otrezka kotor

pascal izvestny koordinaty vershin nekotorogo chetyrehugolnika ax1y1 bx2y2

pascal vychislit znachenie vyrazheniya yxn zk vychislenie znacheniya stepeni of

рекомендуемые вопросы

Helpful Links

Helpful Social