Составить программу, которая меняет элементы массива на противоположные по знаку, массив заполняется с клавиатуры.
Решить задачу на паскале.
Ответы
Ответ дал:
0
PascalABC
var a:array of real;
i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.
var a:array of real;
i,n:integer;
begin
write('Задайте размер массива = ');readln(n);
setlength(a,n);
for i:=0 to n-1 do readln(a[i]);
writeln('Исходный массив: ',a);
for i:=0 to n-1 do a[i]:= -a[i];
writeln('Полученный массив: ',a);
end.
Ответ дал:
0
В PascalABC.Net проверил, работает.
Ответ дал:
0
Возможно ты вместе с надписью "PascalABC" программу пытался запустить?
Ответ дал:
0
нет брат
Ответ дал:
0
значит ты пытался её запустить в другой среде, отличной от ABC ( Turbo, Free и т.д.)
Ответ дал:
0
нет в ABC он пишет что нужны [ ] а что в них писать?
Вас заинтересует
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад