дан массив из 15 целых чисел из промежутка от -5 до
Дан массив из 15 целых чисел из интервала от -5 до 15 Все элементы массива уменьшить на некоторое число a. Пожалуйста только правильно и чтобы она выводилось на экран
Задать свой вопрос
Leonid Odnoorkov
только на программке Pascal надобно
2 ответа
Игорь Корюнов
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ArrRandom(15,-5,15); m.Println;
var a:=ReadInteger('a =');
m.Transform(t-gt;t-a); m.Println
end.
Пример
-2 14 -3 2 -4 6 1 -3 9 1 -4 -2 14 9 8
a = 5
-7 9 -8 -3 -9 1 -4 -8 4 -4 -9 -7 9 4 3
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ArrRandom(15,-5,15); m.Println;
var a:=ReadInteger('a =');
m.Transform(t-gt;t-a); m.Println
end.
Пример
-2 14 -3 2 -4 6 1 -3 9 1 -4 -2 14 9 8
a = 5
-7 9 -8 -3 -9 1 -4 -8 4 -4 -9 -7 9 4 3
Ольга Грудзенко
ну здесь он сходу начинается с begin
Ходырова
Амина
а я желал program const var begin end, и.т.д
Никита
const n = 5;var a: array[-5..15] of integer; i, p: integer;begin p := 1; for i := 1 to n do begin a[i] := random(0, 10); write(a[i], ' '); if(odd (a[i])) then p -= a[i]; end; writeln(); writeln(p);end.
Даниил Екишкин
типо этого
Пынько
Валерий
и все
Василиса
пж
Арсений Гаргаун
помогите
Михаил Ферару
плииз
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов