Ответы
Ответ дал:
0
Код программы:
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.
Ответ дал:
0
Ответ:
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.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
8 лет назад