Чему равно значение s в результате работы следующего фрагмента кода равно s=0 for (count=3; count< =10; count++) s=s+count;
228
383
Ответы на вопрос:
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.
Популярно: Информатика
-
Рожочек1113.10.2022 07:51
-
аян4511.01.2022 01:23
-
BUPA127.07.2022 14:47
-
oliesiaolieska21.05.2023 12:41
-
dima102529.03.2023 15:53
-
ola12429.10.2021 10:32
-
arisha7226.08.2021 01:17
-
Tina1997725.06.2021 09:02
-
124354i24.01.2021 11:55
-
inzhu12334525.05.2023 20:14