Помогите пожалуйста!!! Срочно нужно!!!
10-11 класс
|
В заданной матрице найти сумму элементов в столбца, в котором отрицательных элементов меньше чем в других столбцах
const
n=5;
m=6;
var
i,j,k,s,max:integer;
a:array[1..n,1..m]of integer;
begin
writeln('Массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(-10,10);
write(a[i,j]:4);
end;
writeln;
end;
for j:=1 to m do
begin
for i:=1 to n do
if a[i,j]<0 then s:=s+1;
if s>max then
begin
max:=s;
k:=j;
end;
s:=0;
end;
for i:=1 to n do s:=s+a[i,k];
writeln('Искомая сумма: ',s)
end.
Другие вопросы из категории
Массив А из 8 элементов заполнить целыми случайными из [-15;15]. Найти min элемент массива. Выдать порядковые номера всех элементов, равных минимальному.
№2
Массив А заполнить: 1 3 5 7 9 ... 99
Найти среднее арифметическое элементов, расположенных с 5 по 8.
№3
Дан массив А из 12 элементов. Вычислить кол-во элементов, значение которых равно В
А) Редактирование текста;
Б) Загрузка файлов;
В) Форматирование текста;
Г) Работа с графиком.
2. Какое расширение имеет файл презентации?
3. В текстовом процессоре Ms Word при задании параметров страницы определяются:
А) Гарнитура, размер, начертание;
Б) Отступ, интервал;
В) Поля, ориентация;
Г) Стиль, шаблон.
4. Как в текстовом процессоре Ms Word получить символы ♥♠♣?
А) Через пункт меню файл
Б) Через пункт меню правка
В) Через пункт меню вставка
Г) Через пункт меню формат
получено?
1) 4 бита
2) 1 бит
3) 8 бит
4) 2 бита
Читайте также
1) Презентация на тему с Средняя Елюзань
2)Презентация на тему с Средняя Елюзань их улицы
Считая, что каждый символ кодируется одним байтом, определите информационный объем следующего высказывания: " В одном килограмме 1000 граммов."
С объяснением как вы решали.
Пожалуйста...Срочно...Завтра крайний срок сдачи...Помогите...
Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.