Дано натуральное число N и последовательность а1, а2, ... аN натуральных чисел, заданных случайным образом из диапазона [3; 100]. Умножить все элементы этой последовательности, кратные 3, на третий элемент. Решить задачу для N=10 (Написать на Паскале).

Question

Информатика

Евлампий

4 декабря, 09:20

Дано натуральное число N и последовательность а1, а2, ... аN натуральных чисел, заданных случайным образом из диапазона [3; 100]. Умножить все элементы этой последовательности, кратные 3, на третий элемент. Решить задачу для N=10 (Написать на Паскале).

+1

Ответы (1)

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

Матильда · Answer 1

const

n=10;

var

a:array [1 ... n] of longint;

i:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (98) + 3;

write (a[i]:4) ;

end;

writeln;

for i:=1 to n do

begin

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

write (a[i]:6) ;

end;

writeln;

readln;

end.