Дан массив из 10 элементов целого типа. Найти минимальный элемент массива, умножить его...

Question

Дан массив из 10 элементов целого типа. Найти минимальный элемент массива, умножить его на 6, а затем вычесть его из каждого элемента. Весь массив напечатать.

Answer 1

Var
a:array [1..10] of integer;
i,k,m:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(0,100);
writeln(a);
m:=a[1];
for i:=2 to 10 do
if a[i]m:=m*6;
for i:= 1 to 10 do
a[i]:= a[i]-m;
writeln(a);
end.

Answer 2

Ответ на ABC Pascal