Напишите решение задачки через паскаль.1.Массив из 10 целых чисел из интервала
Напишите решение задачки через паскаль.
1.Массив из 10 целых чисел из интервала [10,20] задается с поддержкою гениратора случайных чисел. Вывести приобретенный массив в строку. Затем увеличить каждый элемент на 5. В последующей строке вывести полученный массив.
2. Массив из 6 отрицательных и положительных чисел вводится в области описания констант. Вывести начальный массив. Отрицательные элементы массива помножить на - 1. Вывести приобретенный массив в последующей строке.
Максим
А свое задание Вы пишете "через русский"?
1 ответ
Маша Табарина
1.
Program enot;
Var a: array[1..10] of integer;
i,k,j: integer;
begin
for i:= 1 to 10 do
a[i]:= random(11)+10;
for i:= 1 to 10 do
write(a[i]:4);
writeln();
for i:= 1 to 10 do
begin
a[i]:=a[i]+5;
write(a[i]:4);
end;
end.
2.Program enot;
Const a:array[1..6] of integer = (3,-5,7,4,8,-2);
Var i: integer;
b: array [1..6] of integer;
begin
for i:= 1 to 6 do
write(a[i]:4);
writeln();
for i:= 1 to 6 do begin
b[i]:=a[i];
if a[i]lt;0 then b[i]:= b[i]*-1;
write(b[i]:4);
end;
end.
Program enot;
Var a: array[1..10] of integer;
i,k,j: integer;
begin
for i:= 1 to 10 do
a[i]:= random(11)+10;
for i:= 1 to 10 do
write(a[i]:4);
writeln();
for i:= 1 to 10 do
begin
a[i]:=a[i]+5;
write(a[i]:4);
end;
end.
2.Program enot;
Const a:array[1..6] of integer = (3,-5,7,4,8,-2);
Var i: integer;
b: array [1..6] of integer;
begin
for i:= 1 to 6 do
write(a[i]:4);
writeln();
for i:= 1 to 6 do begin
b[i]:=a[i];
if a[i]lt;0 then b[i]:= b[i]*-1;
write(b[i]:4);
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Облако тегов