Заполнить массив из 10 элементов целыми числами из интервала [-20; 29],числа вводятся с клавиатуры.
142
468
Ответы на вопрос:
Код pascal. const n = 10; var a: array[1..n] of integer; i, c: integer; begin i : = 0; while 1 = 1 do begin if i = 10 then break; readln(c); if (c < = 29) and (c > = -20) then begin inc(i); a[i] : = c; end else writeln('число выходит за границы'); end; writeln('готово'); readln; end.вродь как-то так
ответ:
program arraysumma;
procedure arrfill (a: array of integer);
var
i: integer;
begin
for i : = low (a) to high (a) do begin
a [i] : = random (100);
write (a [i], ' ');
end;
end;
var
a1, a2: array of integer;
n1, n2: integer;
begin
write ('введите размерность двух массивов: ');
readln (n1, n2);
setlength (a1, n1);
setlength (a2, n2);
randomize;
writeln;
writeln ('первый массив: ');
arrfill (a1);
writeln;
writeln ('второй массив: ');
arrfill (a2);
readln;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
123lego123den23.05.2020 01:56
-
Kirich0ult24.10.2022 03:48
-
юлка1009.05.2020 00:49
-
daniil072322.09.2022 16:52
-
Gggggggggggg2219.10.2022 14:39
-
vikapuhtina04.08.2020 21:07
-
MarySilverstone24.07.2020 11:06
-
uchenica706.09.2021 16:58
-
tatybat18.11.2020 18:09
-
пупсикг15.02.2022 09:54
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.