Ответы на вопрос:
1)
var
a: array[1..10,1..10] of integer;
i,j: integer;
begin
randomize;
for j: =1 to 10 do
for i: =1 to 10 do
a[i,j]: =random(51);
for i: =1 to 10 do
write(a[i,4);
end.
2)
var
n,max,i: integer;
a: array[1..n] of integer;
begin
max: =0;
read(n);
for i: =1 to n do
read(a[i]);
for i: =1 to n do
if a[i]> max then max: =a[i];
write(max);
end.
Популярно: Информатика
-
MR3AlI10.06.2023 10:17
-
MrRainClouD13.08.2022 09:22
-
VladimirOwl20.02.2020 21:33
-
ket85123021.04.2021 04:59
-
vladuxa031102.04.2022 03:12
-
Dinastita20.05.2022 07:18
-
mirnayanatulya16.03.2023 23:25
-
karapetyanhovn102.11.2022 05:42
-
akimfugenko20.06.2023 19:23
-
Tanya22rus15.08.2022 04:06