Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте!
Помогите, пожалуйста, сформировать матрицу: 2 4 6
8 10 12
14 16 18

Вопрос задала: Мамонова Елена Николаевна (статус: Посетитель) Вопрос отправлен: 27 мая 2012, 16:16 Состояние вопроса: решён, ответов: 1.

Ответ #1. Отвечает эксперт: puporev

Здравствуйте, Мамонова Елена Николаевна!
const n=3;
var a:array[1..n,1..n] of byte;
i,j,k:byte;
begin
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
inc(k,2);
a[i,j]:=k;
write(a[i,j]:4);
end;
writeln;
end;
readln
end.

Ответ отправил: puporev (статус: 2-ой класс) Время отправки: 27 мая 2012, 16:33 Оценка за ответ: 5 Комментарий к оценке: Огромное спасибо!!!

Мини-форум вопроса

28 мая 2012, 21:02: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором DNK

31 мая 2012, 16:54: Статус вопроса изменён на решённый (изменил модератор DNK)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.