Помогите пожалуйста с задачками в паскале! 1) Составьте программку, которая наполняет
Помогите пожалуйста с задачками в паскале!
1) Составьте программу, которая наполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с чётными значениями на 1. Если элементы с чётными значениями отсутствуют, бросить массив без изменений.
2) Составьте программку, которая заполняет массив а [1..10] случайными целыми числами в спектре от 1 до 10,потом преобразовывает его, увеличивая все элементы с нечётными значениями в три раза, а элементы с чётными значениями заменяя на 0.
2 ответа
Колька
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(10,1,10); a.Println;
a.Transform(t-gt;t.IsEven?t+1:t); a.Println
end.
Пример
4 8 9 2 5 6 3 5 8 9
5 9 9 3 5 7 3 5 9 9
begin
var a:=ArrRandom(10,1,10); a.Println;
a.Transform(t-gt;t.IsOdd?3*t:0); a.Println
end.
Пример
3 7 9 4 5 8 8 3 7 8
9 21 27 0 15 0 0 9 21 0
// Внимание! Если программка не работает, обновите версию!
begin
var a:=ArrRandom(10,1,10); a.Println;
a.Transform(t-gt;t.IsEven?t+1:t); a.Println
end.
Пример
4 8 9 2 5 6 3 5 8 9
5 9 9 3 5 7 3 5 9 9
begin
var a:=ArrRandom(10,1,10); a.Println;
a.Transform(t-gt;t.IsOdd?3*t:0); a.Println
end.
Пример
3 7 9 4 5 8 8 3 7 8
9 21 27 0 15 0 0 9 21 0
Igor Borzenko
нужна программа по ветхой версии паскаля
Матвеевский
Кирюха
1)
var
a:array[1..10] of integer;
i:integer;
Begin
Randomize();
For i:=1 to 10 do begin
a[i]:= 1+ random(10);
Write(a[i], ' ');
if a[i] mod 2 = 0 then a[i]:=a[i] + 1;
end;
Writeln();
For i:=1 to 10 do
Write(a[i], ' ');
end.
2)
var
a:array[1..10] of integer;
i:integer;
Begin
Randomize();
For i:=1 to 10 do begin
a[i]:= 1+ random(10);
Write(a[i], ' ');
if a[i] mod 2 lt;gt; 0 then a[i]:=a[i] * 3 else a[i]:= 0;
end;
Writeln();
For i:=1 to 10 do
Write(a[i], ' ');
end.
var
a:array[1..10] of integer;
i:integer;
Begin
Randomize();
For i:=1 to 10 do begin
a[i]:= 1+ random(10);
Write(a[i], ' ');
if a[i] mod 2 = 0 then a[i]:=a[i] + 1;
end;
Writeln();
For i:=1 to 10 do
Write(a[i], ' ');
end.
2)
var
a:array[1..10] of integer;
i:integer;
Begin
Randomize();
For i:=1 to 10 do begin
a[i]:= 1+ random(10);
Write(a[i], ' ');
if a[i] mod 2 lt;gt; 0 then a[i]:=a[i] * 3 else a[i]:= 0;
end;
Writeln();
For i:=1 to 10 do
Write(a[i], ' ');
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
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 причём
Геометрия.
Облако тегов