Код программы:
const N = 6;
var
a:array[1..N] of integer;
i:integer;
begin
writeln('Введите массив');
for i:= 1 to N do
readln(a[i]);
writeln('Введенный массив:');
writeln(a[i]);
if (a[i] > 0) then
a[i] := -a[i]
else
a[i] := abs(a[i]);
writeln('Измененный массив:');
end.
Ответ:
program z1;
const n=11;
var a:array[1..n]of integer;
for i:= 1 to n do
write('a[',i,'] = ');
readln (a[i])
end;
writeln;
writeln('Вывод массива в столбик: ');
a[i]:=-a[i];
writeln(a[i])
end
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Код программы:
const N = 6;
var
a:array[1..N] of integer;
i:integer;
begin
writeln('Введите массив');
for i:= 1 to N do
readln(a[i]);
writeln('Введенный массив:');
for i:= 1 to N do
writeln(a[i]);
for i:= 1 to N do
if (a[i] > 0) then
a[i] := -a[i]
else
a[i] := abs(a[i]);
writeln('Измененный массив:');
for i:= 1 to N do
writeln(a[i]);
end.
Ответ:
program z1;
const n=11;
var a:array[1..n]of integer;
i:integer;
begin
for i:= 1 to n do
begin
write('a[',i,'] = ');
readln (a[i])
end;
writeln;
writeln('Вывод массива в столбик: ');
for i:= 1 to n do
begin
a[i]:=-a[i];
writeln(a[i])
end
end.