Предмет: Информатика,
автор: Аноним
информатика 9 класс 28(2) Дан одномерный массив. Замените все отрицательные элементы массива их квадратами, положительные элементы оставьте без изменения. Требуется решение на языке Pascal.
Ответы
Автор ответа:
1
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.
Puz1koO:
Если сочли мой ответ подходящим, пометьте его как "лучший". Спасибо!
Похожие вопросы
Предмет: Русский язык,
автор: tanyat77
Предмет: Русский язык,
автор: jasmina1300jasok
Предмет: Русский язык,
автор: KARIMOVABARNO1969
Предмет: Математика,
автор: vadim196646
Предмет: Математика,
автор: sezim09