Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
ArthurMyChemov
18.05.2021 07:42 •
Информатика
Поэлементно заполнить одномерный массив и вывести его на экран консольного вывода в сторону. количество массива не превышает 5. нужно написать программу
Показать ответ
Ответ:
mk515
26.08.2020 09:15
Ввод с клавы:
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
псдрпл
29.04.2020 12:08
Составь 4 ребуса понятием(оброботка информации,систематизация,поиск,анимация)...
MostQweek
06.01.2020 21:55
Ребят Буду очень вам благодарна...
Anastasija291205
08.08.2021 09:23
Дано трёх значное число в нём зачеркнули первую слева цифру и приписали её в конце найти полученное число...
лиза286489
05.04.2023 20:28
Заданы три числа составьте программу с которой определите существует ли треугольник с такими длинами сторон если да то найдите его площадь...
6e3yMHbIu1
21.01.2021 08:58
Задано ширина прямоугольника и её диагональ. Составьте программу, с которой определите периметр прямоугольника...
денис20062002
05.11.2022 00:49
Создайте любую переменную, в которую пользователь будет вводить свое имя. Затем выведите с приветствием имя пользователя. Пример: “Здравствуй, Боб!” 2. Пользователь вводит любое...
ruslanbekka
19.06.2021 15:14
Задан периметр и диагонали прямоугольника составьте программу с которой определите площадь прямоугольника...
Varvara2001
03.01.2020 12:26
Заполните массив А (4, 4) и распечатайте его....
kotovad444
29.01.2020 02:54
найти и исправить ошибку в коде, вообще не понимаю.. ассемблер х86section .textglobal _start_start:mov esi,fibomov eax, 1mov ebx, 1ischo: xor ecx,ECXadd ecx,eaxadd ecx,ebxjs...
HeLLDeViLL
02.05.2021 18:54
ТРИ задачи по информатике 7 класс. Даю 38+ за ЛЁГКИЕ ЗАДАЧИ! + в начале есть ШПАРГАЛКА для работы! (если вы знаете только одну задачу лучше не пишите или пишите в комментариях...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.