Паскаль. Заполните двумерный массив 4х5 случайными вещественными числами [-1,1]. Выведите...

Question

Паскаль. Заполните двумерный массив 4х5 случайными вещественными числами [-1,1]. Выведите его на экран. Подсчитайте общее количество неотрицательных элементов в массиве.
Помогите пожалуйста, только не заумными командами, т.к. Только начали изучать Паскаль

Answer 1

Var
  A: array [1..4, 1..5] of real;
  i, j, z: byte;
begin
randomize;
z := 0;
for i := 1 to 4 do
begin
  for j := 1 to 5 do
  begin
    A[i, j] := random*2-1;
    write(A[i, j]:6:2, ' ');
    if A[i, j] > 0 then z := z + 1;
  end;
  writeln;
end;
writeln('Количество нечетных элементов = ', z);
end.

---

---

Comments

Подскажите, откуда вы взяли цифры 6 и 2?

---

6 и 2 это количество знаков перед и после запятой.

---

Можно написать 0:2

---

Или 0:4. Я написал 6, чтобы была ровная табличка, а 2 просто - два знака после запятой. Если не написать будут длинные числа.

---

Просто попробуйте поменять на разные цифры и поймете. Можно вообще ничего не писать, но тогда все будет в кашу.

---

Спасибо большое!!!

---

Ремарка небольшая. Первое число 6, это не знак после запятой. Это как бы фиксированная длинна. Например в строке -0.48 пять символов. Т.к. стоит число 6, перед этими пятью символами поставится пробел.