Паскаль. 12.Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце. 13.Даны два массива А(3*3)
10-11 класс
|
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
{12. Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце.}
Program asd;
USES crt;
Const n=3;
Const m=3;
Var A,B:array [1..n, 1..m] of integer;
k,s,i,j,q:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=random(9);
write(' ',A[i,j]:2);
end;
Writeln;
end;
For i:=1 to n do
begin
for j:=1 to m do
begin
If i=j then S:=S+A[i,i];
end;
end;
Writeln('Matriza A: ',s);
For i:=1 to n do
begin
for j:=1 to m do
begin
B[i,j]:=random(9);
Write(' ',B[i,j]:2);
end;
Другие вопросы из категории
Нужно написать программу, при помощи которой можно будет преобразовать из шестнадцатеричного кода в десятеричную (Желательно на Delfi!)
Ввести с пульта оператора в массив А(10) любые целочисленные числа.Программно записать в обратном порядке.Результат вывести на экран
у человека два уха.
Пингвины живут в Африке.
угрюмое небо.
Электронное устройство.
Компьютер- электронное устройство
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.напишите пожалуйста программу в лазарусе
Если можно, то с объяснениями, пожалуйста. Заранее благодарна!
1)Дан массив Р(15).Найти сумму всех отрицательных элементов с четными индексами.Полученный результат вывести на экран.
2)Ввести с пульта оператора массив МАС1 семь целых чисел. Переписать из МАС1 в МАС2 элементы значения которых положительные,в МАС3 элементы значения которых отрицательные. На пульт оператора вывести значения МАС1,МАС2,МАС3