Ответы на вопрос:
1)
var
a: array[1..10] of integer;
i: integer;
begin
for i: =1 to 10 do
read(a[i]);
randomize;
for i: =1 to 10 do
a[i]: =random(136)+22;
for i: =1 to 10 do
if a[i]> 100 then writeln(a[i]);
end.
2.
var
a,n: integer;
begin
readln(a,n);
a: =a^n;
writeln(a);
end;
6.
var
x: array[1..5] of real;
i: integer;
begin
for i: =1 to 5 do
begin
read(x[i]);
if x[i]=9 then x[i]: =x[i]*3;
if x[i]> 9 then x[i]: =x[i]/10;
writeln(x[i]);
end;
end.
Популярно: Информатика
-
ZEVS33333324.01.2020 22:29
-
lyababaranik27.01.2022 05:36
-
art02122000108.12.2020 08:13
-
Лиро115.10.2022 06:25
-
Катерика200419.06.2023 20:01
-
726262625.01.2022 22:05
-
оkсана0627.08.2020 02:06
-
софия2004200915.02.2020 03:39
-
katyauauauaua17.09.2020 09:15
-
GreatGenius13.08.2020 21:16