Предмет: Информатика,
автор: EvaFrants
Заполнить массив случайными числами (положительными и отрицательными) из произвольного диапазона. Вывести созданный массив на экран, расположив элементы в одну строку через пробелы. Заменить все отрицательные элементы квадратом соответствующего индекса.
Ответы
Автор ответа:
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.
Приложения:

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