Составьте программку для решения 2 задачи пожалуйста по теме преобразование массивов.1.
Составьте программку для решения 2 задачи пожалуйста по теме преображенье массивов.
1. Сформировать массив из 8 случайных целых чисел от -20 до 20. Вывести сформированный массив на экран. Поменять кратные 5 элементы числом 100, а положительные числом -100. Вывести приобретенный массив на экран.
2. Дан Массив из N целых положительных чисел. Поменять все чётные элементы массива числом 2, а не чётные - числом 1.
Колька Нехитров
Да
Олег Загорец
А если число положительное и кратное 5-ти на что сменять?
2 ответа
Виктория Черторогова
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программка не работает, обновите версию!
//1
begin
var a:=ArrRandom(8,-20,20); a.Println;
a.Transform(t-gt;t mod 5=0?100:tgt;0?-100:t); a.Println
end.
Пример
-7 -15 8 -19 -16 -10 -16 14
-7 100 -100 -19 -16 100 -16 -100
//2
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
a.Transform(t-gt;t.IsEven?2:1); a.Println
end.
Пример
n= 17
40 89 88 55 73 76 82 86 10 76 3 90 83 94 90 83 75
2 1 2 1 1 2 2 2 2 2 1 2 1 2 2 1 1
// Внимание! Если программка не работает, обновите версию!
//1
begin
var a:=ArrRandom(8,-20,20); a.Println;
a.Transform(t-gt;t mod 5=0?100:tgt;0?-100:t); a.Println
end.
Пример
-7 -15 8 -19 -16 -10 -16 14
-7 100 -100 -19 -16 100 -16 -100
//2
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
a.Transform(t-gt;t.IsEven?2:1); a.Println
end.
Пример
n= 17
40 89 88 55 73 76 82 86 10 76 3 90 83 94 90 83 75
2 1 2 1 1 2 2 2 2 2 1 2 1 2 2 1 1
Кирилл Зворыкина-Фефенко
//2)
//Pascal
var
A: array [1..255] of integer;
N, i: byte;
begin
randomize;
write('Введите N: '); readln(N);
writeln('Случайный массив из положительных.');
for i := 1 to N do begin
A[i] := random(50);
write(A[i]:4);
end;
writeln;
for i := 1 to N do begin
if A[i] mod 2 = 0 then A[i] := 2
else A[i] := 1;
write(A[i]:4);
end;
writeln; readln; //Если PascalABC.NET, можно убрать
end.
//1)
//Pascal
var
A: array [1..8] of integer;
i: byte;
begin
randomize;
writeln('Случайный массив.');
for i := 1 to 8 do
begin
A[i] := random(41)-20;
write(A[i]:6);
end;
writeln;
for i := 1 to 8 do
begin
if (A[i] mod 5 = 0)=false or (A[i] gt; 0)=false then
begin
if A[i] mod 5 = 0 then
A[i] := 100
else
if A[i] gt; 0 then
A[i] := -100;
end;
write(A[i]:6);
end;
writeln; readln; //Если PascalABC.NET, можно убрать
end.
//Pascal
var
A: array [1..255] of integer;
N, i: byte;
begin
randomize;
write('Введите N: '); readln(N);
writeln('Случайный массив из положительных.');
for i := 1 to N do begin
A[i] := random(50);
write(A[i]:4);
end;
writeln;
for i := 1 to N do begin
if A[i] mod 2 = 0 then A[i] := 2
else A[i] := 1;
write(A[i]:4);
end;
writeln; readln; //Если PascalABC.NET, можно убрать
end.
//1)
//Pascal
var
A: array [1..8] of integer;
i: byte;
begin
randomize;
writeln('Случайный массив.');
for i := 1 to 8 do
begin
A[i] := random(41)-20;
write(A[i]:6);
end;
writeln;
for i := 1 to 8 do
begin
if (A[i] mod 5 = 0)=false or (A[i] gt; 0)=false then
begin
if A[i] mod 5 = 0 then
A[i] := 100
else
if A[i] gt; 0 then
A[i] := -100;
end;
write(A[i]:6);
end;
writeln; readln; //Если PascalABC.NET, можно убрать
end.
Безсмертнов
Толик
В Delphi надо.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов