tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
С! заполните массив из
С! заполните массив из 9 элементов целыми числами из интервала [-15; 24] и выведите на экран в строку через "; ". язык программирования - pascal
Roserum
1 09.09.2019 05:10
1
Ответы
GALAXY356
07.10.2020 02:24
const n=9;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do a[i]:=random(40)-15;
for i:=1 to n do write(a[i],';');
end.
Пример:
16;23;-9;-3;5;18;19;0;11;
ПОКАЗАТЬ ОТВЕТЫ
enikeevanellya
07.10.2020 02:24
Var n, i: integer; begin randomize;
for i := 1 to 8 do begin n := random (39) - 15; write (n,';'); end; n := random (39) - 15; write (n);end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mumusinka
30.05.2023 13:30
Заповніть пропуски: 5 байтів = _ _ _ бітів; 100 байтів = _ _ _ бітів; 10 Кбайт = _ _ _ бітів; 32 біти = _ _ _ байтів...
agadoraaa
29.11.2020 21:12
Закодируете текст в коды Унылая пора! Очей очарование!Приятна мне твоя прощальная красаЛюблю я пышное природы увядание...в багрец и золото одетые леса...
shcherboroma
29.11.2020 21:12
очень нужно. Найди значение выражение F=(1+0^1)^(0^1+1)И ещё на фото ...
Valera7451
29.11.2020 21:12
Написать программу по блок схеме: ПАСКАЛЬ...
setkrokol
29.11.2020 21:13
ПАСКАЛЬ! Вывести на экран нечетные числа от 50 до 10....
Jeepwrangler74
29.11.2020 21:13
Те, кто шарят в информатике...
DamirLike
19.05.2020 18:04
Https://videouroki.net/tests/836202773/ помните даю 15...
sasha290806
19.05.2020 18:04
Рассчитайте конечную сумму последовательности...
fantomfantoms
14.05.2020 11:33
(х 45) и не (сумма цифр числа х не равна 8)...
Violetta0100
14.05.2020 11:33
Төменде берілген белгішелерді салыстырыңыз және кестені толтырыңыз. 1 2...
Популярные вопросы
Самостоятельная работа по теме «Основания» 8 класс 1. Среди перечисленных...
2
Исторические сюжеты в настоящем времени.Впишите в текст пропущенное...
1
Қазақ тілі 4тоқсан 1 БЖБ керек жауаптарымен сынып...
2
Предложение со сливами подсолнух солнцецвет солнцезащитный бессолнечный...
1
Друг прислал вам письмо с предоставить рецепт вашего любимого...
1
НУЖНО ОЧЕНЬ Номер второй. ...
2
Напишите таблицу. Задание 2....
2
Хлеб для собак подробный пересказ одного из эпизодов от лица главного...
2
Вот прям В рамках предмета «Технология» изучаются: а) технологии...
1
1 примерчик. Логарифмическая система уравнения....
2
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do a[i]:=random(40)-15;
for i:=1 to n do write(a[i],';');
end.
Пример:
16;23;-9;-3;5;18;19;0;11;
for i := 1 to 8 do begin n := random (39) - 15; write (n,';'); end; n := random (39) - 15; write (n);end.