Кумир , обстановка . В файле то , что должно получится и сама обстановка , нужна сама программа ( алгоритм) чтоб получился этот прямоугольник
136
311
Ответы на вопрос:
1)begin
var a := ArrRandom(5, -1, 1);
foreach var b in a do
Write(b:3)
end.
2)const N = 20;
var
a: array[1..N] of integer;
max: integer;
i, count: byte;
begin
randomize;
max := -26;
for i:=1 to N do begin
a[i] := random(40)-26;
write(a[i],' ');
if a[i] > max then max := a[i];
end;
writeln;
count := 0;
for i:=1 to N do
if abs(a[i]) > max then
count := count + 1;
writeln(count);
end.
Популярно: Информатика
-
protivnuy16.09.2022 09:08
-
marinka10k19.03.2020 12:06
-
maalia1202.11.2020 22:43
-
Raptords27.04.2021 13:46
-
beliy11232923.03.2020 10:32
-
ilia11319.05.2020 14:39
-
bersenevaksenia127.03.2021 04:54
-
Будда42720.10.2020 02:43
-
хорошист54623.09.2022 00:28
-
Про100Володя01.07.2021 14:04