Задать вопрос
24 декабря, 00:44

Сосавить программу, которая формирует массив, содержащий 8 случайных целых чисел, принадлежащих промежутку[0; 6] и преобразует элементы массива по следующему правилу: четное число умножает на 3, а к нечетному прибавляет 2

+4
Ответы (2)
  1. 24 декабря, 02:52
    0
    Program Program1;

    var

    a:array [1 ... 8] of integer;

    i:integer;

    s:string;

    begin

    randomize;

    writeln ('Исходный массив:') ;

    for i:=1 to 8 do

    begin

    a[i]:=random (7) ;

    writeln ('a[', i,']=', a[i]) ;

    end;

    for i:=1 to 8 do

    if a[i] mod 2 = 0 then

    a[i]:=a[i]*3

    else

    a[i]:=a[i]+2;

    writeln;

    writeln ('Преобразованный массив:') ;

    for i:=1 to 8 do

    writeln ('a[', i,']=', a[i]) ;

    end.
  2. 24 декабря, 03:55
    0
    var a:array [1 ... 8] of integer;

    i:integer;

    begin

    for i:=1 to 8 do

    read (a[i]) ;

    for i:=1 to 8 do

    if (a[i]) div 2 = 0 then a[i]: = (a[i]) * 3

    else a[i]:=a[i]+2;

    for i:=1 to 8 do

    writeln (a[i]) ;

    end.

    тока добавь что числа в промежутке [0 ... 6]
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Сосавить программу, которая формирует массив, содержащий 8 случайных целых чисел, принадлежащих промежутку[0; 6] и преобразует элементы ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы