Проблемно-ориентированная информатика химико-технологических процессов. Кравцов А.В - 33 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

FOR j:=1 TO 10 DO
IF
abs(A[i, j])<=0.5 THEN S:=S+A[i, j];
{Вывод результатов}
writeln(’Максимальный элемент данного массива =’, MAX:10:6);
writeln(’Сумма =’, S:10:6);
END.
Пример 2.7.2 Составить программу определения суммы элементов
главной диагонали в массиве А[3,3].
CONST
A:ARRAY [1..3,1..3] OF real= ( (2,4,6.7), (1.3, 0.11,2E-3), (6,2,7) );
VAR
i, j:integer;
A:
ARRAY [1..10, 1..10] OF real;
S:real;
BEGIN
S:=0;
FOR
i:=1 TO 10 DO S:=S+A[i, i];
writeln(‘Cумма элементов главной диагонали матрицы =’, S:10:6);
END.
Пример 2.7.3 Составить программу определения номера строки в
случайно заданном массиве А[7,10], сумма элементов которой макси-
мальна.
VAR i, j, Nmax:integer;
A:
ARRAY [1..7, 1..10] OF real;
S:
ARRAY [1..7] OF real;
BEGIN
randomize;
FOR i:=1 TO 7 DO
FOR
j:=1 TO 10 DO
A[i, j]:=(1-2∗random)∗10;
{Нахождение суммы элементов каждой строки}
FOR
i:=1 TO 7 DO
BEGIN
S[i]:=0;
FOR
j:=1 TO 10 DO
S[i]:=S[i]+A[i, j];
END;
{Нахождение номера максимального элемента в массиве S(7)}
33

Страницы