Дан массив a(6). найти определить количество элементов равных 4.
дан массив а(6; 6) найти максимум среди элементов повторившихся более одного раза.
Ответы на вопрос:
pascalabc.net
begin
// 1
var a : = arrrandom(6, 3, 5);
a.println;
a.count(p -> p = 4).println;
// 2
var b : = matrrandom(6, 6, 10, 50);
b.println(3);
b.elementsbyrow
.groupby(p -> p)
.select(p -> (p.key, p.count))
.where(p -> p[1] > 1)
.maxby(p ->
.println
end.
ответ:
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 во второй находятся повторяющиеся элементы массива а.
в общем не не знаю какой урок на что ты в порядке установленном законом и не было и я вам на рассмотрение коммерческое предложения в не меньшей чем я не знаю какой
Популярно: Информатика
-
ofdgf21.02.2021 14:45
-
lisaezhikova03.12.2021 16:14
-
Евус111126.02.2022 08:17
-
ulya06126.07.2020 20:00
-
андрей9032130.12.2021 12:59
-
Пепечка15.05.2022 11:02
-
maryclarly28.06.2023 23:34
-
aselznala200401.05.2021 02:00
-
Artemko3111.09.2020 11:08
-
Zheksenova0116.04.2023 02:15