информатика 9 кл 28(2) Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения.
Const Sz = 1000; var a: array [1..Sz] of integer; b: array [1..Sz] of integer; c: array [1..Sz] of integer; d: array [1..Sz] of integer; M: integer; N: integer; i: integer; k: integer;begin read(M); readln(N); for i:=1 to N do begin read(a[i]); readln(b[i]); if (a[i]<>0) then c[i]:=1 else c[i]:=0; end; for i:=1 to N do begin if(c[i]<>0) then begin for k:=1 to i do begin if(d[k]=0) then d[i]:=1; if (c[k]=i) then d[k]:=0; end; writeln(d[i]) end;end;end.
Const Sz = 1000; var a: array [1..Sz] of integer; b: array [1..Sz] of integer; c: array [1..Sz] of integer; d: array [1..Sz] of integer; M: integer; N: integer; i: integer; k: integer;begin read(M); readln(N); for i:=1 to N do begin read(a[i]); readln(b[i]); if (a[i]<>0) then c[i]:=1 else c[i]:=0; end; for i:=1 to N do begin if(c[i]<>0) then begin for k:=1 to i do begin if(d[k]=0) then d[i]:=1; if (c[k]=i) then d[k]:=0; end; writeln(d[i]) end;end;end.
var
a:array of integer;
i,n,min,max:integer;
begin
write('Введите размерность массива: '); readln(n);
setlength(a,n); dec(n);
write('Введите разброс значений (min max): '); readln(min,max);
writeln('Изначальный массив:');
for i:=0 to n do
begin
a[i]:=random(max+abs(min)+1)+min;
write(a[i]:4);
if a[i]<0 then a[i]:=sqr(a[i]);
end;
writeln;
writeln('Изменённый массив:');
for i:=0 to n do
write(a[i]:4);
end.
Дублирую свой ответ!
Если сочли мой ответ подходящим, пометьте его как "лучший" !