1. Дан массив А(N Найти сумму элементов массива, кратных 8 и произведение положительных элементов. 2. Дана матрица В(N;N). Найти максимальный элемент, расположенный на главной диагонали и его индексы по столбцу и строке. 1. Дан массив А(N). Найти произведение элементов массива, меньших числа К и сумму элементов кратных 3. 2. Дана матрица В(N;N). Найти кол-во элементов, кратных 5, находящихся ниже главной диагонали. 1. Дан массив А(N). Найти кол-во элементов массива, равных В. и произведение отрицательных элементов. 2. Дана матрица В(N;N). Найти произведение отрицательных элементов, находящихся выше побочной диагонали. 1. Дан массив А(N). Найти произведение отрицательных элементов, кратных 3, имеющих четные индексы и их кол-во. 2. Дана матрица В(N;N). Найти сумму положительных элементов, находящихся выше главной диагонали. 1. Дан массив А(N). Найти кол-во элементов массива, равных нулю и сумму отрицательных элементов. 2. Дана матрица В(N;N). Найти произведение отрицательных элементов, находящихся выше побочной диагонали. РЕШИТЬ БЛОК-СХЕМОЙ
Ответы
1. Традиционный "школьный" вариант
var
i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 8 do Write(j,',');
Writeln(9);
for j:=9 downto 2 do Write(j,',');
Writeln(1)
end
end.
Результат
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
2. Современный вариант
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Loop 5 do begin
SeqGen(9,i->i,1).Println(',');
SeqGen(9,i->9-i).Println(',')
end
end.
var
i,j:integer;
begin
for i:=1 to 5 do begin
for j:=1 to 8 do Write(j,',');
Writeln(9);
for j:=9 downto 2 do Write(j,',');
Writeln(1)
end
end.
Результат
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
1,2,3,4,5,6,7,8,9
9,8,7,6,5,4,3,2,1
2. Современный вариант
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
Loop 5 do begin
SeqGen(9,i->i,1).Println(',');
SeqGen(9,i->9-i).Println(',')
end
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Опишите известный вам мультимедийный продукт.
Автор: kep92
Скласти казку на тему королівство paint
Автор: kush-2640
Как в паскале задать случайное число?
Автор: prostopo4ta29
Написать программы для решения следующих задач
Автор: minasov19
Сколько блоков в программе lego mindstorms
Автор: Yeliseeva Verevkin864
Информатика илими эмнени окутат
Автор: mbudilina
mm=50; { максимально возможное кол-во строк }
nn=50; { максимально возможное кол-во столбцов }
var
a:array[1..mm,1..nn] of integer;
i,j,m,n:integer;
begin
Randomize;
Write('Количество строк в массиве: '); Read(n);
Write('Количество столбцов в массиве: '); Read(m);
Writeln('*** Исходный массив ***');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=Random(101)-50; { [-50;50] }
Write(a[i,j]:7)
end;
Writeln
end;
Writeln;
for i:=1 to n do begin
for j:=1 to m do begin
if a[i,j]<0 then a[i,j]:=121212;
Write(a[i,j]:7)
end;
Writeln
end
end.