Ответы на вопрос:
Uses crt; var i: integer; k: array [1..5] of real; begin clrscr; writeln ('input array: '); for i: =1 to 5 do begin write (i,') '); readln (k[i]); end; writeln ('your array: '); for i: =1 to 5 do write (k[i],' '); readln (); end.
const n=20;
var i,m,k: integer;
a: array[1..n] of integer;
begin
m: =-20;
for i: =1 to n do
begin
a[i]: =random(16)-10;
write(a[i]: 3,' ');
if a[i] > m then m: =a[i]
end;
writeln;
for i: =1 to n do
if (abs(a[i]) > m) then k: =k+1;
writeln(k)
end.
const n=20;
var i,s,k: integer;
a: array[1..n] of integer;
begin
for i: =1 to n do
begin
a[i]: =random(21)-10;
write(a[i]: 3,' ');
if a[i] > 0 then
begin
s: =s+ a[i];
k: =k+1
end
end;
writeln;
writeln(s/k: 0: 3)
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
asylkhanova0512.10.2021 16:13
-
Hjlüüä16.11.2020 16:57
-
khgssfghdwwcnoy01.05.2023 22:55
-
lida11310.02.2020 01:24
-
Танюня12312544327.06.2022 00:28
-
ангелина55500017.05.2020 07:44
-
fialka0810.06.2020 17:45
-
lololoki0305.10.2022 17:32
-
Galina261717.10.2020 04:43
-
allaaleksandro129.03.2020 09:27
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.