1. Информатика
  2. задать массив из 20 элементов

задать массив из 20 элементов случайным образом от -100 до 100 вывести его на экран и найти те элементы котрые положительные

Kirill6767 Kirill6767    3   15.12.2021 12:57    0

Ответы
Rexis808 Rexis808  05.02.2022 23:36

Программа:

Pascal:

var

arr: array[1..20] of integer;

i: integer;

begin

randomize;

for i := 1 to 20 do arr[i] := random((-100), 100);

writeln(arr);

for i := 1 to 20 do if arr[i] > 0 then write(arr[i], ' ') ;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
YOP56 YOP56  06.06.2019 14:30
Вpascal abc составить программу для подсчета четных цифр, используемых для записи произвольного числа x. использовать цикл с предусловием, другого не проходили !...
148625 148625  22.12.2020 16:59
Робот линейные аргаритмы какой порядок действий? ​...
hobitmaksovtize hobitmaksovtize  22.12.2020 17:00
Объясните как это делать и если возможно покажите​...
lobodapo lobodapo  22.12.2020 17:00
У исполнителя Вычислитель две команды, которым присвоены номера: 1. умножь на b 2. прибавь 3 (b – неизвестное натуральное число). Первая из них увеличивает число на экране в b раз,...
DianaTesl DianaTesl  07.03.2019 16:10
Составить на паскале программу определения минимума из трёх чисел без использования логических операций. программа должна иметь дружественный интерфейс (ввод данных осуществляться...
gen1978 gen1978  07.03.2019 16:10
Файл размером 9 кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. определите размер файла (в байтах), который можно передать за то же время через другое...
simkinaalinoschka simkinaalinoschka  14.11.2019 21:11
Беззнаковым 8-разрядным представлением числа 4510 является: 1)101101 2)00101101 3)101 4)10110100...
матвей100000001357 матвей100000001357  14.11.2019 21:10
Даны две переменные. запросить их значение. выполнить основные арифметические действия с переменными, целочисленное деление, возведение в квадрат. осуществить перевод в системы...
TwistChanel TwistChanel  14.11.2019 21:10
Информационное сообщение объемом 660 битов состоит из двух 220 символов. сколько символов в алфавите, с которого записано это сообщение. , !...
IrinaErmolenko IrinaErmolenko  08.04.2020 14:26
Дан одномерный массив найдите максимальный и минимальный элемент и выведите на экран , на паскале...

Популярные вопросы