tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Описать массив из 20 элементов
Описать массив из 20 элементов вывести его на экран(случайно) отдельной строкой вывести 5-й элемент
gjgjggfasf
1 23.08.2019 08:10
2
Ответы
anchousuchixa
05.10.2020 14:14
Program n1;
var a: array[1..20] of integer;
i,k: integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(15);
for i:=1 to 4 do write(a[i],' ');
for i:=6 to 20 do write(a[i],' ');
writeln;
writeln(a[5]);
end.
ПОКАЗАТЬ ОТВЕТЫ
89271870095
05.10.2020 14:14
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-50,50); a.Println;
Writeln('a[5]=',a[4])
end.
Пример
-11 16 -26 -2 23 0 13 34 49 50 -40 20 -50 18 24 -5 -42 38 27 -23
a[5]=23
Если пятый элемент в первой строке надо при выводе пропустить, то так:
begin
var a:=ArrRandom(20,-50,50); (a[:4]+a[5:]).Println;
Writeln('a[5]=',a[4])
end.
Пример
21 39 45 -22 -17 11 45 -26 8 46 23 12 25 36 -46 -39 -40 49 40
a[5]=-32
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
FaceLess111
27.04.2020 12:34
Дан массив а от одного до 15 в заданный случайными числами в диапазоне от -50 до 50 найти сумму элементов массива кратных трём...
AnTonDPR
08.09.2019 01:40
Перевести в: 1)в байты: 1. 488 бит = ? 2. 24 килобайт = ? 3. 5 мегабайт = ? 2)в килобайты: 1. 10000 бит = ? 2. 8000 байт = ? 3. 512 гигабайт = ?...
ForaN777
08.09.2019 01:40
Перечислите системы программирования: выберите несколько из 5 вариантов ответа: 1) delphi 2) visual basic 3) corel draw 4) notepad 5) ms office...
sasha3637
02.06.2019 05:40
ответьте надо для чего служит (ram)компьютера?...
adv00
02.06.2019 05:40
1)составить алгоритм нахождение меньшего из двух значений 2)определить является данное число четным или нечетным...
olgaerchik
15.07.2019 03:10
1.найти минимальный элемент среди отрицательных элементов массива а[1..3,1..4] 2.заполнить массив a[1..2,1..5] целыми значениями с клавиатуры и вывести на экран в виде таблицы....
оля199925867452
14.04.2020 17:04
Скільки грошей буде на рахунку через три роки,якщо вклад у банк 450000грн під12%річних?...
Мурмурыч
14.04.2020 17:04
Сделайте заранее большое!...
yaroshenkopoli
14.04.2020 17:04
химия 8 класс. 1 Расположите элементы в порядке возрастания радиуса: а)фосфор, натрий, хлор, кремний. б) мышьяк, фтор, азот, фосфор. 2 Расположите элементы по увеличению неметаллических...
DruNastya
14.04.2020 17:04
.Труба длиной 12 метров разрезана на куски длиной 22/5 метра. Сколько получилось кусков?...
Популярные вопросы
решить пятое задание в 1 и 2 вариантах...
2
Река течёт со скоростью 15 км/ч . По течению реки со скоростью 30 км/ч плывет...
2
по русскому языку 7 класс. ответов нет нигде...
1
Электроскоп соединён с цинковой пластиной и заряжен отрицательным зарядом....
3
Допишіть рівняння ,розставте коефіцієнти ,назвіть продукти реакцій .До якого...
2
Как 495 умножить на не могу разобраться....
2
1)Биомасса травы (продуценты 1-го порядка) — 7 000 кг, биомасса ястребов...
2
В чому був конфлікт у пєсі ляльковий дім...
2
Назвати групу гір, що входить до складу Альпійсько-Гімалайського поясу:...
2
Сделайте задание.За правильный ответ дам 25/...
2
var a: array[1..20] of integer;
i,k: integer;
begin
randomize;
for i:=1 to 20 do a[i]:=random(15);
for i:=1 to 4 do write(a[i],' ');
for i:=6 to 20 do write(a[i],' ');
writeln;
writeln(a[5]);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(20,-50,50); a.Println;
Writeln('a[5]=',a[4])
end.
Пример
-11 16 -26 -2 23 0 13 34 49 50 -40 20 -50 18 24 -5 -42 38 27 -23
a[5]=23
Если пятый элемент в первой строке надо при выводе пропустить, то так:
begin
var a:=ArrRandom(20,-50,50); (a[:4]+a[5:]).Println;
Writeln('a[5]=',a[4])
end.
Пример
21 39 45 -22 -17 11 45 -26 8 46 23 12 25 36 -46 -39 -40 49 40
a[5]=-32