Матрицы. Вычислить произведение отрицательных элементов вещественной матрицы Bnxn, находящихся под главной диагональю (элементы диагонали не участвуют в
10-11 класс
|
обработке).
var
B:array[1..100, 1..100] of real;
i, j, n:integer;
Pr:real;
flag:boolean;
begin
randomize;
write('n = ');
readln(n);
if n < 2 then
begin
writeln('некорректный размер матрицы');
Exit;
end;
for i := 1 to n do
begin
for j := 1 to n do
begin
B[i, j] := (random(101) - 50) / 10;
write(B[i, j], ' ');
end;
writeln;
end;
Pr := 1;
flag := false;
for i := 2 to n do
for j := 1 to i - 1 do
if B[i, j] < 0 then
begin
flag := true;
Pr := Pr * B[i, j];
end;
if Flag then
writeln('Pr = ', Pr)
else
writeln('Нет ни одно отрицательного элемента ниже главной диагонали');
readln;
end.
Другие вопросы из категории
соответственно: 16 бит и 24 кГц.
заранее спасибо!
хранения,поиска и сортировки данных;
3) для принятия управляющих решений,
б) Каин существуют варианты классификации БД?
в) Почему реляционный вид БД является наиболее распространенным?
г) Что такое запись в реляционной БД?
д) Что такое поле,тип поля; какие бывают типы полей?
е) Что такое главный ключ записи?
2. Определите главный ключ и типы записей в следующих отношениях:
АВТОБУСЫ (номер маршрута,начальная остановка,конечная остановка)
КИНО (кинотеатр,сеанс,фильм,российский,длительность)
УРОКИ (день недели,номер урока,класс,предмет,преподаватель)
3. Опишите структуру записей (имена полей,типы полей,главные ключи) для баз данных: РЕЙСЫ САМОЛЕТОВ , ШКОЛЫ ГОРОДА , СТРАНЫ МИРА.
комнаты, если отходы не превосходят 5%, а окна и двери составляют 25% общей площади стен комнаты. Если не хватит, то сколько рулонов нужно добавить?
Читайте также
Имя массива J
Размер 32
Программа должна реализовывать следующие функции:
1.Сумма всех чисел
2.минимальное чётное число
3.кол-во отрицательных нечётных чисел
4.сумма отрицательных нечетных чисел