Ответ(ы) на вопрос:
Гостьvar a:array[1..50] of real;
n,i:integer;
begin
write('Количество чисел = ');
readln(n);
for i:=1 to n do begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to n do
a[i]:=a[i]*3;
writeln('Массив A:');
for i:=1 to n do write(a[i]:4:2,' ');
writeln;
end.
Пример:
Количество чисел = 5
a[1] = 7.1
a[2] = 5.4
a[3] = 8.0
a[4] = 9.5
a[5] = 7.3
Массив A:
21.30 16.20 24.00 28.50 21.90
Не нашли ответ?
Похожие вопросы