на паскале заполнить массив по последующему правилу

На паскале
заполнить массив по следующему правилу

Задать свой вопрос
Жердова Дарья
неясно...
1 ответ

var

 i, j: Integer;

begin

 for i := 1 to 5 do begin

   for j := 1 to 5 do begin

     if (i + j) mod 2 = 0 then

       Write (Trunc (i * 2.3 + 0.5 * j - 1):3)

     else

       Write ('  0');

   end;

   WriteLn;

 end;

end.

Валерия Масинева
в задании вроде массив заполнить просили...
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт