1. Информатика
  2. Выполнить это по информатике:

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

патишка1 патишка1    2   23.06.2019 10:50    1

Ответы
Tbdtbd Tbdtbd  19.07.2020 10:58
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
NarkoBaronTif NarkoBaronTif  18.05.2019 02:00
Написать программу определяющую равны ли друг другу три введенные с клавиатуры числа...
dauletkulova dauletkulova  01.12.2020 14:16
Дан фрагмент электронной таблицы. Какое число должно быть записано в ячейке B1, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек A2:C2 соответствовала...
макатернар1 макатернар1  01.12.2020 14:16
Коли місце збереження інформації стає базою баних ? a. якщо інформація має виключно текстовий характер b. якщо забезпечена секретність даних c. якщо дані об єднані зв язками та спільною...
ilonarudneva14Sofass ilonarudneva14Sofass  14.03.2021 19:19
Изображение размером 32х64 пикселя занимает 1024 байта памяти. Какое максимальное количество цветов использовалось в палитре изображения...
Ппмммммммм Ппмммммммм  14.03.2021 19:17
Здраствуйте, нужна с Языком программирования Си....
PonchikPonchikovuy PonchikPonchikovuy  14.03.2021 19:16
Вывести в первой строке трехзначного числа(во второй строке их количество)у которых сумма цифр S и вторая цифра делится на третью, в третей строке вывести трёхзначные числа(в четвертой...
svensyea svensyea  14.03.2021 19:15
Составьте блок-схему и программу для решения следующей задачи: Банк начисляет 2% годовых. Выведите какой станет сумма вклада S, положенная в банк на N лет. Значение S и N вводятся...
avdzhrr avdzhrr  14.03.2021 19:09
1) Чем характерен цикл с постусловием? 2) Объяснить синтаксис цикла с постусловием? 3) Где происходит проверка условия цикла с постусловием? 4) Сколько раз выполняется цикл с постусловием...
beatsdol beatsdol  14.03.2021 18:58
1)Найдите верную запись условия: число а кратно 3 и 5 *A) if (a//5==0)or (a%3==0)B) if (a%3==0)and (a%5==0)D) if (a%3,5==0)2)Найдите верную запись арифметического выражения *(картинка...
abukaka abukaka  14.03.2021 18:58
Що таке автононоиія університетів...

Популярные вопросы