Ответы на вопрос:
Объяснение:
program ArrayX;
var
x : array [1..10] of integer;
i, qty : integer;
begin
qty:=0;
for i:= 1 to 10 do begin
x[i] := random(20)-10;
if x[i] > 2 then qty := qty+1;
writeln('x[',i,'] = ',x[i]);
end;
writeln('Qty of x>2 = ',qty);
end.
===================
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
18 lines compiled, 0.2 sec
/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?
x[1] = 0
x[2] = 1
x[3] = 4
x[4] = 6
x[5] = 2
x[6] = 7
x[7] = 0
x[8] = 6
x[9] = -2
x[10] = 2
Qty of x>2 = 4
...Program finished with exit code 0
Press ENTER to exit console.
PascalABC.NET ₃.₆.₃.₂₅₇₇## ArrRandom(10, -10, 10).Println.Count(x -> x>2).Print
Пример работы:
1) а10=252 а2=11111100 решение: 252/2 =126 остаток 0 126/2 =63 остаток 0 63/2 =31 остаток 1 31/2 =15 остаток 1 15/2 =7 остаток 1 7/2=3 остаток 1 3/2 = 1 остаток 1 1/2 =0 остаток 1 записываем ответ снизу вверх: а2=11111100 2) а10=252 а8=374 решение: 252/8 =31 остаток 4 31/8 =3 остаток 7 3/8 =0 остаток 3 записываем ответ снизу вверх: а8=374 3) а10=252 а16=fc f=15 c=12 решение: 252/16 = 15 остаток 12(с) 15/16 = 0 остаток 15(f) записываем ответ снизу вверх: а16=fc
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
яна176801.03.2022 20:02
-
Frasmus04.02.2021 03:00
-
mafeei13.06.2023 01:48
-
софья2005410.07.2022 08:01
-
mihatyt10002.06.2020 06:35
-
EveYo22.01.2022 06:38
-
Inna2104200214.02.2021 12:11
-
vkakochka21.08.2020 14:32
-
Милааа1121.03.2020 05:46
-
алина379823.03.2021 21:58
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.