Найти ошибку (паскаль) program u1; var max1,max2,k: longint; begin readln (k); max1: =k; max2: =k; repeat readln (k); if k> max1 then begin max2: =max1; max1: =k; until k< > 0; writeln (max2); end; end. выводит ошибку в 12 строчке "встречено until, а ожидалось ; "
181
233
Ответы на вопрос:
// pascalabc.net 3.0, сборка 1073 const nn=30; mm=30; var a: array[1..mm,1..nn] of integer; m,n,i,j,imax,jmax: integer; begin writeln('введите число строк и столбцов массива: '); read(m,n); randomize; writeln('*** исходный массив ***'); imax: =1; jmax: =1; for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random(51)-25; write(a[i,j]: 4); if a[i,j]> a[imax,jmax] then begin imax: =i; jmax: =j end end; writeln end; for i: =1 to m do a[i,jmax]: =0; for j: =1 to n do a[imax,j]: =0; writeln('*** результирующий массив ***'); for i: =1 to m do begin for j: =1 to n do write(a[i,j]: 4); writeln end end. тестовое решение: введите число строк и столбцов массива: 5 8 *** исходный массив *** 11 -10 -25 -25 -19 -3 -2 0 -24 1 5 -25 -21 -16 -16 -22 -21 -10 -12 7 20 16 0 -10 -13 25 -18 18 -5 9 15 1 -19 -10 -16 9 -11 11 24 -19 *** результирующий массив *** 11 0 -25 -25 -19 -3 -2 0 -24 0 5 -25 -21 -16 -16 -22 -21 0 -12 7 20 16 0 -10 0 0 0 0 0 0 0 0 -19 0 -16 9 -11 11 24 -19
Популярно: Информатика
-
alenkaabramovic20.10.2020 09:51
-
hadisvv24.07.2020 00:37
-
Klimka08109811.07.2022 16:41
-
prosto1242120.11.2021 04:35
-
Diman6666609.01.2021 15:15
-
oksana111115697026.04.2021 12:24
-
vesnakrasna127.12.2021 23:19
-
nkaracheva23.06.2020 12:35
-
FCMM31.03.2021 04:00
-
BoPoHoK30.01.2023 21:48