Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Даняша09
29.03.2020 19:41 •
Информатика
Дан целочисленный массив заданный датчиком случайных чисел в интервале (100). требуется умножить отрицательные значения элементов этого массива на 20.
Показать ответ
Ответ:
Профессионал228
07.10.2020 11:23
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
a.Transform(t->t<0?t*20:t); a.Println
end.
Пример
n= 13
-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92
-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92
0,0
(0 оценок)
Ответ:
tukva83
07.10.2020 11:23
//Код с комментариями во вложении
//Pascal
var
A: array [1..20] of integer;
i: byte;
begin
randomize;
for i := 1 to 20 do
begin
A[i] := random(201)-100;
if A[i] < 0 then A[i] := A[i] * 20;
write(A[i], ' ');
end;
writeln;
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alexguzz55
26.12.2020 09:59
Яким є порядок розв язування задач, у яких передбачено опрацювання деякої сукупності даних? 2. Як зміни елементів масиву мовою програмування Free Pascal, а які — мовою програмування...
Сашуля141
30.06.2021 10:46
Как будет выглядит эта программа полностью.Очент...
mikimouse9
08.11.2020 12:02
с информатикой плззз....
Екатерина21082006
07.07.2020 06:51
Pascal ABC: 1.Розробіть програми для виведення значення √х для парних чисел х у діапазоні від 2 до 10.2.Визначення суми цілих додатних непарних чисел менше 30.За спам відправлю...
arslanmax
16.06.2020 14:58
Вывести на экран все трёхзначные числа, которые делятся на 5, и не делятся на 3. (Желательно на кумире, но подойдет и паскаль)....
птмпль
22.09.2022 10:16
вы хотите положить в банк 20000 рублей. Ежегодно на сумму вклада начисляютя проценты. Например, если ставка составляет 10% годовых увеличивается каждый год в 1,1 раза. При...
Bernardeschi
02.03.2021 08:24
с Задача 1. Из чисел от 100 до 300 найти число с максимальной суммой делителей. Задача 2. Разработать процедуры для решения следующей задачи: выполнить вставку максимального...
Killerman68
09.01.2021 05:42
Найти точку минимума целевой функции методом дихотомии f(x) = x3 - x,x € [0,1], = 0,1...
асель117
29.08.2021 07:47
Составить программу для решения задачи при произвольных исходных данных. Вывести на экран все целые числа от 100 до 200, кратные трем. (цикл с предусловием)...
SirenaLi27
22.01.2021 03:32
1.постройте таблицу истинности по следующим выражениям. 2. упростите выражения,указывая закона...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
a.Transform(t->t<0?t*20:t); a.Println
end.
Пример
n= 13
-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92
-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92
//Pascal
var
A: array [1..20] of integer;
i: byte;
begin
randomize;
for i := 1 to 20 do
begin
A[i] := random(201)-100;
if A[i] < 0 then A[i] := A[i] * 20;
write(A[i], ' ');
end;
writeln;
readln;
end.