1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените вс...

August 2021 1 15 Report

1. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все нечетные элементы с четными индексами на нули. Выведите на экран исходный и полученный массивы.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. Замените все его положительные элементы на наибольший отрицательный элемент. Выведите на экран исходный и полученный массивы.

Answers & Comments

allangarsk №1var r,n:integer;C:Array[0..9]of integer;Beginfor r:=0 to 9 do beginC[r]:= random(50)-25; write(C[r]:4);if (abs(C[r]) mod 2 = 1)and (r mod 2 = 0) then C[r] := 0;end;writeln;foreach n in C dowrite(n:4);end.№2var r,n,m,max,k:integer;C:Array[0..9]of integer;Beginmax:=-30;for r:=0 to 9 do beginC[r]:= random(50)-25; write(C[r]:4);if (C[r] < 0) and (max < C[r]) then max := C[r];end;writeln;for r:=0 to 9 do beginif C[r] > 0 then C[r]:= max;end;writeln;foreach n in C dowrite(n:4);end.

2 votes Thanks 2

log04 Огромное спасибо, а это только 1 задача

allangarsk и №2

Answers & Comments

рекомендуемые вопросы

Helpful Links

Helpful Social