Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

Помогите пожалуйста!!! Срочно нужно!!!

10-11 класс

В заданной матрице найти сумму элементов в столбца, в котором отрицательных элементов меньше чем в других столбцах

Kurganovayana 24 июня 2015 г., 7:15:04 (8 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Knyazevd
24 июня 2015 г., 9:47:21 (8 лет назад)

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.  

Ответить

Другие вопросы из категории

№1

Массив А из 8 элементов заполнить целыми случайными из [-15;15]. Найти min элемент массива. Выдать порядковые номера всех элементов, равных минимальному.
№2
Массив А заполнить: 1 3 5 7 9 ... 99
Найти среднее арифметическое элементов, расположенных с 5 по 8.
№3
Дан массив А из 12 элементов. Вычислить кол-во элементов, значение которых равно В

1.В минимальный набор функций, которые должен выполнять текстовый редактор не входит:

А) Редактирование текста;
Б) Загрузка файлов;
В) Форматирование текста;
Г) Работа с графиком.
2. Какое расширение имеет файл презентации?
3. В текстовом процессоре Ms Word при задании параметров страницы определяются:
А) Гарнитура, размер, начертание;
Б) Отступ, интервал;
В) Поля, ориентация;
Г) Стиль, шаблон.
4. Как в текстовом процессоре Ms Word получить символы ♥♠♣?
А) Через пункт меню файл
Б) Через пункт меню правка
В) Через пункт меню вставка
Г) Через пункт меню формат


Читайте также

Помогите пожалуйста срочно нужно)))

1) Презентация на тему с Средняя Елюзань
2)Презентация на тему с Средняя Елюзань их улицы

Помогите пожалуйста, срочно нужно!

Считая, что каждый символ кодируется одним байтом, определите информационный объем следующего высказывания: " В одном килограмме 1000 граммов."
С объяснением как вы решали.

помогите пожалуйста, срочно нужно
Помогите пожалуйста!) Напечатать программу в паскале......

Пожалуйста...Срочно...Завтра крайний срок сдачи...Помогите...

Дан массив строк без пробелов. Напечатать строки, вторая половина которых не содержит цифры.



Вы находитесь на странице вопроса "Помогите пожалуйста!!! Срочно нужно!!!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.