Дан масив из 12 целых чисел вывести исходный масив и получить новый элементы которого увеличены в 4 раза
Дан масив из 12 целых чисел вывести исходный масив и получить новый элементы которого увеличены в 4 раза
Гость
Ответ(ы) на вопрос:
Гостьprogram massiv;
uses crt;
const a:array[1..12] of byte=(1,3,2,3,0,9,4,5,6,7,8,2);
var i:byte;
b:array[1..12] of byte;
begin
clrscr;
write('Isxodnui massiv: ');
for i:=1 to 12 do
begin
write(a[i]:4);
b[i]:=a[i];
end;
writeln;
Write('Novui massiv: ');
for i:=1 to 12 do
begin
b[i]:= b[i]*4;
write(b[i]:4);
end;
readln;
end.
Не нашли ответ?
Похожие вопросы