Составьте программку для решения 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
//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.
Безсмертнов Толик
В Delphi надо.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт