Информатика. Учебно-методическое пособие. Артемова С.В - 21 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

}
s=0; // Присвоение начального значения переменной s
for(i=0;i<N;i++)
{
if(mas[i]%2==0) // Проверка на четность (деление на два без остатка)
s+=mas[i]; // Накопление суммы
}
// Вывод полученного значения суммы на экран
printf("\nСумма четных элементов равна s=%i", s);
getch(); // Задержка экрана до нажатия любой клавиши
}
{ Задание 1. Найти максимальный элемент среди элементов,
находящихся выше главной диагонали квадратной матрицы.
Указать его индексы. }
uses crt; { Подключение библиотеки ввода-вывода }
const n = 3; { Задается размерность матрицы }
var i, j, max, imax, jmax: Integer;
a: Array [1..n,1..n] of Integer;
begin
ClrScr; { Очистка экрана }
WriteLn('Составил Поляков Д.Г., КТФ, Р-11');
WriteLn; { Вывод пустой строки }
for i := 1 to n do { Во вложенном цикле }
begin { происходит заполнение матрицы }
for j := 1 to n do
begin
WriteLn('Введите ',i,'.',j,'-й элемент матрицы');
Read(a[i,j]); { Ввод элементов матрицы }
end;
WriteLn; { Вывод пустой строки }
end;
for i := 1 to n do { Во вложенном цикле }
begin { происходит вывод матрицы }
for j := 1 to n do Write(a[i,j]:3,' ');
WriteLn; { Вывод пустой строки }
end;
max := a[2,1];
for i := 1 to n do { Производится поиск макс. элемента и его координат }
begin { согласно заданию. }
for j := 1 to n do
if (j-i) >= 1 then
if a[i,j] > max then
begin
max := a[i,j];
imax := i;
jmax := j;
end;
end;
WriteLn('Выводится max: ',max); { Выводятся макс. элемент и его координаты }
WriteLn('Выводится cтрока: ',imax); { согласно заданию. }
WriteLn('Выводится столбец: ',jmax);

Страницы