var a:array[1..10] of integer;
i,k,s,n:integer;
begin
randomize;
k:=0; s:=0;
writeln('massiv a');
for i:=1 to n do begin
a:=random (200)-100;
writeln(a,'_');
end;
for i:=1 to n do begin
if a mod 2<>0 then begin
a:=-a
end;
end;
for i:=1 to n do writeln(a);
end;
end.
задача в паскале.массив
задайте массив из 10 элементов с помощью генератора случайных чисел и поменяйте из знак всем нечетным элементам массива на противоположный. выведите на экран исходный и измененный массив
var a:array[1..10] of integer;
i,k,s,n:integer;
begin
randomize;
k:=0; s:=0;
writeln('massiv a');
for i:=1 to n do begin
a:=random (200)-100;
writeln(a,'_');end;
for i:=1 to n do begin
if a mod 2=1 then begin
if a>0 then writeln('-', a) else write (a= -a);
for i:=1 to n do writeln(a);
end;
and;
end.
скажите что не так в программе.
var a:array[1..10] of integer;
i,k,s,n:integer;
begin
randomize;
k:=0; s:=0;
writeln('massiv a');
for i:=1 to n do begin
a:=random (200)-100;
writeln(a,'_');end;
for i:=1 to n do begin
if a mod 2=1 then begin
if a>0 then writeln('-', a) else write (a= -a);
for i:=1 to n do writeln(a);
end;
and;
end.
скажите что не так в программе.
может так попробовать:
Код:
не получается так
вернее как.программа запускается.на экран выводится "массив а" и потом что бы я не нажала, программа вылетает.:(
вернее как.программа запускается.на экран выводится "массив а" и потом что бы я не нажала, программа вылетает.:(
Цитата: nastyanan
не получается так
вернее как.программа запускается.на экран выводится "массив а" и потом что бы я не нажала, программа вылетает.:(
вернее как.программа запускается.на экран выводится "массив а" и потом что бы я не нажала, программа вылетает.:(
У Вас в программе переменной n - не присвоено значение и ещё begin пропущен:
Код:
for i:=1 to n do writeln(a);
end;
end;
и я чтот внимания не обратил:)
вот так вроде бы работает;)
Код:
program p1;
uses crt;
var a:array[1..10] of integer;
i,k,s,n:integer;
begin
randomize;
k:=0;
s:=0;
n:=10;
for i:=1 to n do begin
a:=random(200)-100;
end;
writeln('Ishodnii massiv');
for i:=1 to n do begin
write(a,' ');
end;
for i:=1 to n do begin
if a mod 2<>0 then begin
a:=-a
end;
end;
writeln('');
writeln('Preobrazovannii massiv');
for i:=1 to n do begin
write(a,' ');
end;
readln;
end.
uses crt;
var a:array[1..10] of integer;
i,k,s,n:integer;
begin
randomize;
k:=0;
s:=0;
n:=10;
for i:=1 to n do begin
a:=random(200)-100;
end;
writeln('Ishodnii massiv');
for i:=1 to n do begin
write(a,' ');
end;
for i:=1 to n do begin
if a mod 2<>0 then begin
a:=-a
end;
end;
writeln('');
writeln('Preobrazovannii massiv');
for i:=1 to n do begin
write(a,' ');
end;
readln;
end.
спасибо)
это помогло)
это помогло)