1.Вывести на экран главную и побочную диагональ квадратной матицы. 2 Вычислить количество четных элементов квадратной матрицы, расположенных по ее
5-9 класс
|
периметру.
const
mm = 20;
var
a: array[1..mm, 1..mm] of integer;
i, j, m, s: integer;
begin
Write('Введите число строк (столбцов) матрицы: ');
Readln(m);
Randomize;
Writeln(#13#10, 'Исходная матрица');
for i := 1 to m do
begin
for j := 1 to m do
begin
a[i, j] := Random(99) + 1; { числа 1..99 }
Write(a[i, j]:3)
end;
Writeln
end;
Writeln('*** Главная диагональ ***');
for i := 1 to m do Write(a[i, i]:3);
Writeln;
Writeln('*** Побочная диагональ ***');
for i := 1 to m do Write(a[i, m - i + 1]:3);
Writeln;
Write('Сумма четных элементов по периметру равна ');
s := 0;
for j := 1 to m do
if a[1, j] mod 2 = 0 then s := s + a[1, j];
for j := 1 to m do
if a[m, j] mod 2 = 0 then s := s + a[m, j];
for i := 2 to m-1 do
if a[i, 1] mod 2 = 0 then s := s + a[i, 1];
for i := 2 to m-1 do
if a[i, m] mod 2 = 0 then s := s + a[i, m];
Writeln(s)
end.
Тестовое решение:
Введите число строк (столбцов) матрицы: 10
Исходная матрица
12 81 22 55 45 97 37 95 33 84
4 40 77 85 20 15 40 41 64 16
17 72 42 32 85 94 7 39 65 46
22 23 58 69 53 40 65 49 70 20
90 62 26 60 53 13 19 2 21 31
50 55 8 29 26 39 40 89 70 51
91 98 31 86 62 80 81 9 32 79
49 90 71 44 26 55 46 81 79 73
75 5 18 34 96 67 16 29 43 15
1 76 78 19 28 91 31 39 98 73
*** Главная диагональ ***
12 40 42 69 53 39 81 81 43 73
*** Побочная диагональ ***
84 64 39 65 13 26 86 71 5 1
Сумма четных элементов по периметру равна 646
Другие вопросы из категории
письмами,содержащими одинаковое кол-во символов.Сравните их информационные объемы сообщений,содержащихся в письмах.
Ребят, ответ-в 1,25 раз. но как решить-не знаю:( подскажите пожалуйста
Читайте также
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале
«итог. сумма».
Задание 2.
Переменной Х присвоить значение 7. Переменной Р присвоить значение, равное квадрату Х. Вывести значения переменных Х и Р (через запятую). Значение Х увеличить на Х. Переменной Р присвоить значение, равное корню квадратному из Х. Вывести значения переменных Х и Р (через запятую).DIKTANT 2
Задание 1.
Значение переменной Х присвоить в программе. При неотрицательном значении Х переменной У присвоить значение, равное корню квадратному из Х. В противном случае, переменной У присвоить значение, равное квадрату Х. Вывести на экран значение Х и значение У.Задание 2.
Двум произвольным переменным присвоить произвольным образом соответственно 2 числа. Двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. Вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. помогите сделать пожсоставлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
вывести на экран квадраты и кубы в диапазоне от -10 до +10
используя repeat