СОСТАВЬТЕ ПРОГРАММУ, КОТОРАЯ ФОРМИРУЕТ МАССИВ ИЗ 16 СЛУЧАЙНЫХ ЦЕЛЫХ ЦИСЕЛ ОТ -20 ДО 20 И НАХОДИТ ЭЛЕМЕНТЫ С НУЛЕВЫМИ ЗНАЧЕНИЯМИ

var

  a: array [1..16] of integer;  //Массив из 16 целых чисел

  i: integer;

 

begin

  randomize;  

  write(Исходный массив:  );

  for i:= 1 to 16 do  {Заполняем массив случайными целыми числами от -20 до 20 и распечатываем его}

  begin

    a[i]:= random(40) - 20;

    write(a[i],  );

  end;

  writeln;

  write(Элементы с нулевыми значениями:  );

  for i:= 1 to 16 do  {Распечатываем элементы с нулевыми значениями через точку с запятой}

    if a[i] = 0 then write(a[, i, ] = , a[i], ; );

  writeln;

end.

Если все правильно, отметь решение как лучшее)

   

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку
×