Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
умник202323
08.11.2022 01:43 •
Информатика
Сформируйте массив из 10 случайных целых чисел на промежутке [-7,10] и увеличьте каждый элемент массива в 4
Показать ответ
Ответ:
pomxic
23.06.2020 20:10
Uses crt;
const n=10;
var a:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(17)-7;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*4;
writeln(a[i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
mrrusarmz
10.06.2021 15:57
Решить про логическое выражение!...
Дашулька1644
27.03.2021 05:29
100 пкт. запись числа 281 в системе счисления с основанием n содержит 3 цифры и оканчивается на 1. чему равно максимально возможное основание системы счисления. запись натурального...
barash8
30.03.2023 19:04
Исполнитель Шифровальщик из одной цепочки символов получает новую цепочку следующим образом: Если цепочка начинается с согласной буквы, Шифровальщик меняет местами первую и предпоследнюю...
nikita2455
08.02.2021 12:17
Какая из логических формул соответствует высказыванию: Неправда, что самолет летит в Москву или в Париж....
irarenkas
11.05.2021 05:18
Определите значение переменной х после выполнения алгоритма: а:=3; b:=2; если a =b то X:=(250 div 10 mod 2) + (350 div 10 mod 10) иначе X:=(250 div 10 mod 10) + (47 mod 6 div 5);...
20AKE04
02.09.2020 04:54
Напишите программу, которая по введеному числу N, определяет число фибоначчи с номером N. Решить задачу на питон простым для школы...
mrsmauriziodimauro
30.12.2021 03:32
напишите с исполнителя черепашка слово *мир*...
юля2738
17.01.2020 15:49
Переведите программу из Паскаля в Питон var numb,count,k:integer; begin for k:= 1 to 8 do begin readln(numb); if (numb mod 10 = 4) and (numb mod 3 = 0) then count:=count+1; end; writeln(count);...
2005NeZnayka2005
17.10.2020 13:29
Напишите программу в Питоне. Введите с клавиатуры 8 положительных целых чисел. Определите, сколько из них делятся на 3 и при этом заканчиваются на 4. Программа должни вывести одно...
dabby25
07.03.2020 17:16
Почему мы используем цифровые устройства для обработка информации?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=10;
var a:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(17)-7;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*4;
writeln(a[i]);
end;
end.