// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
begin Writeln('*** Исходная матрица ***'); var a:=MatrRandom(5,6,-30,30); a.Println(4); Writeln(4*a.ColCount*'-'); if a.ElementsByRow.Any(t->t=0) then Writeln('Есть нулевые элементы') else Writeln('Нет нулевых элементов') end.
1 Задача 1) Начало 2) i = 1 2.1) K = i^2 2.2) Вывод K 2.3) i = i + 1 2.4) i > 5 ? Если Да, возвращаемся на 2.1) Если Нет, окончание цикла. 3) Конец.
2 Задача 1) Начало 2) k = 0 (счетчик нечетных чисел) 3) Ввод первого числа A1 3.1) Если [A1 / 2] < A1 / 2, то k = k + 1 (ввели нечетное число) 4) Ввод второго числа A2 4.1) Если [A2 / 2] < A2 / 2, то k = k + 1 (ввели нечетное число) 5) Ввод третьего числа A3 5.1) Если [A3 / 2] < A3 / 2, то k = k + 1 (ввели нечетное число) 6) Вывод k 7) Конец
3 Задача 1) Начало 2) Объявление массива А() пока неизвестного размера (динамического) 3) i = 1 3.1) Ввод очередного числа A(i) 3.2) Если A(i) = 0, то переход на 4) 3.3) i = i + 1 3.4) Возврат на 3.1) 4) Переопределение динамического массива A(i) размером i элементов. 5) Конец
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(5,6,-30,30);
a.Println(4); Writeln(4*a.ColCount*'-');
if a.ElementsByRow.Any(t->t=0) then Writeln('Есть нулевые элементы')
else Writeln('Нет нулевых элементов')
end.
Пример
*** Исходная матрица ***
16 -8 -16 6 24 -9
1 -9 26 30 0 5
7 23 10 3 -15 -4
8 18 -3 -14 -23 18
-6 27 -1 20 18 -25
Есть нулевые элементы