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

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

Задать свой вопрос
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] gt; 0 then z := z + 1;
  end;
  writeln;
end;
writeln('Количество нечетных частей = ', z);
end.
Александр Клекнер
Подскажите, откуда вы взяли числа 6 и 2?
Яна Ворсонофьева
6 и 2 это количество символов перед и после запятой.
Евген Лозуто
Можно написать 0:2
Тоня Морщинина
Либо 0:4. Я написал 6, чтоб была ровненькая табличка, а 2 просто - два знака после запятой. Если не написать будут длинноватые числа.
Валера Шпади
Просто пробуйте поменять на разные числа и поймете. Можно вообщем ничего не писать, но тогда все будет в кашу.
Egor Ostrelin
Спасибо огромное!!!
Сергей Баскин
Ремарка маленькая. Первое число 6, это не символ после запятой. Это как бы фиксированная длинна. Например в строке -0.48 5 знаков. Т.к. стоит число 6, перед этими пятью знаками поставится пробел.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт