информатика 9 кл 28(2) Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения.
Ответы
Ответ дал:
2
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.
Дублирую свой ответ!
Если сочли мой ответ подходящим, пометьте его как "лучший". Спасибо!
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад