Program JolieWErnAje; uses crt; const n=10; var a:array[1..n,1..n] of integer; i,j: integer; tp: integer; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); writeln(); tp:=1; randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:= random(20)+1; {заполняем массив} write(a[i,j]:4); if a[i,j] mod 3 = 0 then tp:=tp*a[i,j]; end; writeln(); end; writeln(); writeln('Произведение элементов, кратных 3, равно ',tp) end.
Это MS Word?
Тогда:
Word 2003:
1-й
Щелкаешь на ячейке таблицы левой кнопкой мыши
В главном меню выбираешь: "Таблица" -> "Вставить" -> "Столбец слева" (или справа)
2-й
Выделяешь столбец таблицы, перед которым нужно вставить новый столбец
Щелкаешь на нём правой кнопкой мыши
В выпадающем меню выбираешь: "Вставить столбец"
Word 2010:
1-й
Щелкаешь на ячейке таблицы левой кнопкой мыши
Главное меню -> "Работа с таблицами" -> "Макет" -> панель "Строки и Столбцы" -> кнопка "Вставить слева" (справа)
2-й
Щелкаешь на ячейке таблицы правой кнопкой мыши
В выпадающем меню выбираешь: "Вставить" -> "Вставить столбец слева" (справа)
Program JolieWErnAje;
uses crt;
const n=10;
var
a:array[1..n,1..n] of integer;
i,j: integer;
tp: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
tp:=1;
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:= random(20)+1; {заполняем массив}
write(a[i,j]:4);
if a[i,j] mod 3 = 0 then tp:=tp*a[i,j];
end;
writeln();
end;
writeln();
writeln('Произведение элементов, кратных 3, равно ',tp)
end.