Составьте программу, которая заполняет массив а [1 ... 10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличие все элементы с нечетными значениями в 3 раза, а элементы с четными значениями заменяя на 0

(Паскаль)

Question

Информатика

Аце

29 марта, 15:51

Составьте программу, которая заполняет массив а [1 ... 10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличие все элементы с нечетными значениями в 3 раза, а элементы с четными значениями заменяя на 0

(Паскаль)

+2

Ответы (2)

Знаете ответ на вопрос?

Онар · Answer 1

Var a: array[1 ... 10] of Integer;

i, s, d: Integer;

begin

for i:=1 to 10 do

begin

a[i]:=Random (10-1+1) + 1;

writeln ('Число: ', a[i]) ;

end;

for s:=1 to 10 do

begin

if a[s] mod 20 then a[s]:=a[s]*3 else a[s]:=0;

end;

for d:=1 to 10 do

begin

writeln (a[d]) ;

end;

end.

Гаури · Answer 2

const n=10;

var a:array [1 ... n] of integer;

i:integer;

begin

for i:=1 to n do a[i]:=random (10) + 1;

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

for i:=1 to n do

if a[i] mod 2 = 0 then a[i]:=0 else a[i]:=a[i]*3;

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

end.