Выполнить это по информатике: составить программу - вопрос №3619545 от firadzo 23.10.2022 19:01

Question

Информатика: Выполнить это по информатике: составить программу на языке паскаль для решения следующей : задать одномерный массив случайным образом, элементы которого принадлежат промежутку [-30; 20] и найти наименьший элемент среди положительных элементов (учесть вариант, когда в массиве может не оказаться положительных элементов учесть правильность написания самой программы (чтобы можно было вставить в паскаль и не исправлять чужие ошибки.(я ещё в своих не разбираюсь))

firadzo · Answer

Const    n = 3;var  i,b:integer;  a:array[1..n] of integer;begin  b:=21;  for i:=1 to n do   begin     a[i]:=random(51)-30;     if (a[i] 0) and (a[i] b) then b:=a[i];   end;  writeln( Полученный массив: );  for i:=1 to n do   write( a[ :4,i, ]= ,a[i]);  writeln; if b 21 then write( Наименьший элемент = ,b) else write( Нет положительных элементов )end....