Элементы двумерного массива A(2,5) вводятся с клавиатуры. Организовать вывод на печать всего массива в виде таблицы ,а так же элементов массива,имеющих зна
5-9 класс
|
чение ,кратные 3
var a:array[1..2,1..5] of integer;
i,j:integer;
begin
for i:=1 to 2 do
for j:=1 to 5 do
read(a[i,j]);
for i:=1 to 2 do begin
for j:=1 to 5 do
write(a[i,j]:5);
writeln;
end;
for i:=1 to 2 do
for j:=1 to 5 do
if a[i,j] mod 3 = 0 then write(a[i,j],' ');
end.
Другие вопросы из категории
Световое табло состоит из лампочек,каждая из которых может находиться в двух состояниях:"включено" или "выключено".Какое наименьшее кол-во лампочек должно находиться 15 различных сигналов?
файла в секундах.
миллилитров.
2)Скорость передачи данных по некоторому каналу равна 4Кбайта/с. Передача файла по этому каналу заняла 4 мин 16 с. Определите оазмер файла в мегабайтах.
замудренно, а времени разбираться мало! Помогите!
Читайте также
программу ввода элементов массива b[1..6] с клавиатуры и вывода на экран элементов с положительными значемиями
(пожалуйста очень срочно надо)даю 72 бала
2-ая Составить программу , которая в двумерном массиве случайных чисел элементы всех четных строк делает нулевыми
язык паскаль
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.