Ответы на вопрос:
ответ:
1.
var a: array[1..6]of integer;
i,k: integer;
begin
k: =0;
write('массив: ');
for i: = 1 to 6 do
begin
a[i]: = random(5);
write(a[i]: 4);
if a[i]=4 then k: =k+1
end;
writeln;
if k=0 then writeln ('в массиве нет элементов равных 4')
else writeln('количество элементов равных 4 равно ',k)
end.
2.
var a: array[1..6,1..6]of integer;
b: array[1..36]of integer;
i,j,k,z,y,m: integer;
begin
k: =0;
writeln('массив a ');
for i: = 1 to 6 do
begin
for j: = 1 to 6 do
begin
a[i,j]: = random(51);
write(a[i,j]: 3);
end;
writeln;
end;
writeln;
k: =1;
for i: = 1 to 6 do
begin
for j: = 1 to 6 do
begin
for z: =1 to 6 do
begin
for y: =1 to 6 do
begin
if (z< > i) and (y< > j) and (a[i,j] = a[z,y]) then
begin
b[k]: =a[i,j];
k: =k+1
end;
end;
end;
end;
end;
writeln('массив b ');
for i: = 1 to k-1 do write (b[i]: 3);
writeln;
writeln;
m: =b[1];
for i: = 2 to k-1 do if b[i]> m then m: =b[i];
writeln('максимум среди элементов повторившихся более одного раза в массиве а равен ',m);
end.
объяснение:
в массиве b во второй находятся повторяющиеся элементы массива а.
Популярно: Информатика
-
marinaozerova317.04.2021 15:14
-
UlianaTir03.04.2021 14:57
-
dedovu610.04.2023 11:23
-
STavctva12.10.2020 13:35
-
daryachita12.05.2022 10:59
-
Cepёжka26.11.2020 13:58
-
пороло128.10.2021 03:25
-
Karina115506.05.2021 20:19
-
Камила1э28.09.2022 21:00
-
ARMY200216.10.2020 08:08