1. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой. 2. Дан одномерный массив разм...
1. Дан одномерный массив размерностью 10, заполненный целыми числами, введенными с клавиатуры, и величина N. Отрицательные элементы заменить на N. Измененный массив вывести на экран одной строкой.
2. Дан одномерный массив размерностью N, заполненный случайными числами в интервале от -15 до 20. Вывести на экран значения элементов массива, абсолютное значение которых >10.
3. Дан одномерный массив размерностью N, заполненный случайными числами. Каждый третий элемент массива возвести в квадрат, если элемент отрицательный. Измененный массив вывести на экран.
Гость
Ответ(ы) на вопрос:
Гость1) var
a:array[1..10]of integer;
i,n,k:integer;
begin
readln(n);
for i:=1 to 10 do
begin
read(a[i]);
if a[i]< 0 then
a[i]:=n;
end;
for i:=1 to 10 do
write(a[i],' ');
end.
2)
var
a:array[1..999999]of integer;
i,n,s:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(36)-15;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
if abs(a[i])>10 then
write(a[i],' ');
end.
3)
var
a:array[1..999999]of integer;
i,n,s:integer;
begin
readln(n);
for i:=1 to n do
begin
a[i]:=random(36)-15;
write(a[i],' ');
end;
writeln;
for i:=1 to n do
begin
if i mod 3 = 0 then
if a[i]<0 then
a[i]:= a[i]*a[i]*a[i];
write(a[i],' ');
end;
end.
Не нашли ответ?
Похожие вопросы