Нужно создать массив, заполненный случайным образом 20 целыми числами в диапазоне от -30...

Question

Нужно создать массив, заполненный случайным образом 20 целыми числами в диапазоне от -30 до 20: 1. Вывести все положительные элементы на экран 2. Вывести на экран элементы меньшие 10, оканчивающиеся на 5 Задание нужно сделать в тетради! Нужно очень срочно)

Answer 1

Ответ:

Объяснение:

var i, pol, otr: integer;

a: array [1..20] of integer;

begin

randomize;

for i:=1 to 20 do

a[i]:= random(51)-30;

writeln('Положительные элементы ниже');

for i:=1 to 20 do begin

if (a[i]>0) then

write(a[i], ' ');

end;

writeln; // для переноса каретки на следующую строку

writeln('Элементы меньше 10, оканчивающиеся на 5 будут ниже');

for i:=1 to 20 do begin

if (a[i] < 10) and (a[i] mod 5 = 0) then

write(a[i], ' ');

end;

writeln;

readln();

end.

---

Comments

Пустые writeln для красоты, чтобы каретка (либо же вот эта мигающая фигня на месте которой символ печатается) переносилась на следующую строку

---

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

---

Так, переменные pol и otr не нужны, не пишите их.

---

var i: integer;a: array [1..20] of integer;beginrandomize;for i:=1 to 20 doa[i]:= random(51)-30;writeln('Положительные элементы ниже');for i:=1 to 20 do beginif (a[i]>0) thenwrite(a[i], ' ');end;writeln; // для переноса каретки на следующую строкуwriteln('Элементы меньше 10, оканчивающиеся на 5 будут ниже');for i:=1 to 20 do beginif (a[i] < 10) and (a[i] mod 5 = 0) and (a[i] mod 10 <> 0) thenwrite(a[i], ' ');end;writeln;readln();end.

---

Программу из комментария перепишите, в программе из ответа есть недочеты

---

Спасибо. Только я совсем в этом не разбираюсь, так что спрошу. Это вторая задача, верно?

---

В этой одной программе обе задачи сделаны. Программу из комментария берите