Предмет: Информатика, автор: EvaFrants

Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Заменить все отрицательные элементы квадратом соответствующего индекса.

Ответы

Автор ответа: Podpletneff
0

var

i: integer;

a: array [1..10] of real;

begin

randomize;

for i:=1 to 10 do

a[i]:=random(10,-10);

writeln('Случайно сгенерированные числа:');

for i:=1 to 10 do

write(a[i], ' ');

for i:=1 to 10 do

if a[i]<0 then a[i]:=a[i]*a[i];

writeln();

writeln();

writeln('Отрицательные эл. массива возведены в квадрат:');

for i:=1 to 10 do

write(a[i], ' ');

end.


Тестовое решение:
Приложения:
Похожие вопросы
Предмет: Қазақ тiлi, автор: ermektoktasynov512
Предмет: Другие предметы, автор: erkenazsahman06
Предмет: Биология, автор: genaevdokimov