Задача по Паскалю.Дан двумерный массив: a:array[1..5,1..5] of integer.Все нечётные столбцы сделать единичными,вывести ответ в виде таблицы.
5-9 класс
|
Var a:array[1..5,1..5] of integer; i,j:integer;
Begin
randomize;
for i:=1 to 5 do
for j:=1 to 5 do a[i,j]:=random(9)+1;
for j:=1 to 5 do
for i:=1 to 5 do
if (j mod 2)<>0 then a[i,j]:=1;
for i:=1 to 5 do
begin
for j:=1 to 5 do write(a[i,j]:3);
writeln;
end;
End.
Другие вопросы из категории
Информатика)
Выделите подсистемы в следующих объектов,рассматриваемых в качестве систем:
а) автомобиль
б)компьютер
в)школа
г)армия
д) государство
запрещено.Запишите цепочки превращений следующих слов:бег-шаг;море-суша;миг-век;бант-коса;шар-куб;муха-слон.
Читайте также
A= array[1..n,1..m] of integer;
2. Вставьте пропущенные определения:
… … двумерных массивов каждая строка заключается в дополнительную пару круглых скобок:
const a:mas= ((2,3,1,0),
(1,9,1,3),
(3,5,7,0));
2. Определить,что распечатает следующая программа:
var a: array[1..5,1..5]of integer,i,j; integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if i=5-j+1 then a[i,j]:=0
else a [i,j]:=0;
write(a[i,j]:2);
end;
writeln;
end; end.
3. Дан линейный массив a [l..n], содержащий целые числа. Вычислить сумму чисел делящихся одновременно на 5 и на 3 и распечатать номера таких чисел
4.Дан линейный массив a [l..n], содержащий целые числа. Преобразовать элементы массива по следующему правилу : если элемент положительный,то заменить его на 1, а если отрицательный - возвести в квадрат
содержатся только положительные элементы из исходного масива ,упорядочить этот новый массив по возрастанию.
Нужно сформировать новый массив по следующему правилу:
все чётные элементы разделить на 2, все нечётные оставить без изменения
Найти произведение отрицательных четных элементов второго столбца массива.
2. Дан двухмерный массив m*n.
Получите одномерный массив b, элементы которого равны min элементам по строкам.