log04
Опубликовано 6 лет назад по предмету Информатика от log04


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

  1. Ответ
    Ответ дан 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.
    1. Ответ
      Ответ дан log04
      Огромное спасибо, а это только 1 задача
    2. Ответ
      Ответ дан allangarsk
      и №2
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц