1. Информатика
  2. Дан массив из 15 элементов.

Дан массив из 15 элементов. необходимо заполнить его с оператора присваивания(случайными числами) и вывести все элементы массива в строку, а затем на следующий строке вывести все элементы равны 5.

dobugrajk18 dobugrajk18    2   03.05.2019 19:02    1

Ответы
Усварппоры Усварппоры  30.09.2020 15:22

Const n=15;

Var i:Integer ;

A:array [1..15]of Integer ;

Begin

For i:=1 to n do begin

A[i]:=random(10);

Write (' A[', i, ']=', A[i]) ;

End;

Writeln ;

For i:=1 to n do begin

If a[i]=5 then write (' A[', i, ']=', A[i]) ;

End;

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ДинаВаитова ДинаВаитова  21.01.2020 16:16
Втаблице дана цена перевозки за 1 км. рассчитайте цену в рублях в зависимости от маршрута: excel составьте таблицу!...
lelikbalelik lelikbalelik  21.01.2020 16:17
Составьте таблицу для расчета отчислений в фонд социального страхования, пенсионный фонд, фонд медицинского страхования и фонд занятости. проценты отчисления от фонда заработной...
ВопросикиОтШколоты ВопросикиОтШколоты  21.06.2022 13:03
Задания по (Python) 7. Запитати стать користувача в змінну sex 8. Якщо стать Чоловік(male), то вивести фразу Hello, Dude! , а якщо жінка Good day, lady 9. Якщо вік користувача більший...
karolina000000 karolina000000  21.06.2022 13:00
Python Створіть дві множини з елементами: 5, 7, 8 і 12, 14, 16, 18. Визначте довжину кожної з них. Об’єднайте множини та обчисліть суму значень її елементів. Визначте кількість елементів,...
556667888 556667888  21.06.2022 11:01
Створити програму де комп ютер загадує Рандомне число в діапазоні від 5 до 15, та користувач має його вгадати, зупинити програму тільки тоді, коли користувач відгадає Приклад: (Компютер...
hdjddngddh hdjddngddh  21.06.2022 10:18
Python Вивести на екран перші N елементів арифметичної прогресії за відомих a (перший член прогресії), d (різниця прогресії). a=int(input( a=? )) d=int(input( d=? )) N=int(input(...
dina15777 dina15777  21.06.2022 10:05
Определите количество натуральных двузначных чисел x, для которых ложно логическое выражение: НЕ (x чётное) И НЕ (x кратно 13)...
человек450 человек450  02.06.2019 04:10
Как обозначается умножение в линейных алгоритмах на письме, точкой или звездочкой?...
lovivirus1234 lovivirus1234  02.06.2019 04:01
Есть два кувшина емкостью 3 и 5 литров. как с только этих кувшинов отмерить только 1 литр жидкости...
rassslabon rassslabon  02.06.2019 04:00
Нужна ) по информатике учитель сказал сделать циферблат часов паскаль) напиши подробно всю программу как делать...

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