Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
serafeam

Посчитать количество элементов в строке матрицы, стоящих после первого отрицательного числа

30.09.2012, 13:11. Показов 2179. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет)
Ребят очень нужна помощь с контрольной работой.

1) создать прямоугольную матрица NxM целых чисел (включая отрицательные)
2) посчитать количество элементов в строке, стоящих после первого отрицательного числа
3)заменить все ноли в строках - сред арифмет эл-тов строки
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.09.2012, 13:11
Ответы с готовыми решениями:

Посчитать количество элементов после первого отрицательного отрицательного массива
Здравствуйте! Нужна ваша помощь. В общем у нас есть одномерный массив, и нужно сделать так чтобы программа шла по массиву и как только она...

Вычислить сумму и количество элементов, стоящих после первого отрицательного элемента
Дан массив из 10 элементов. Вычислить сумму и количество элементов, стоящих после первого отрицательного элемента.

Вычислить сумму и количество элементов, стоящих после первого отрицательного элемента
Дан массив из 10 элементов. Вычислить сумму и количество элементов, стоящих после первого отрицательного элемента.

1
 Аватар для ermolay
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
30.09.2012, 13:52
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
const
  nmax=16;
var
  a: array[1..nmax,1..nmax] of real;
  b: array[1..nmax] of real;
  n,m,i,j,k: integer;
  sum: real;
  boo: boolean;
begin
  randomize;
  write('Введите размеры матрицы: ');
  readln(n,m);
  for i:=1 to n do
  begin
    boo:=false;
    k:=0; sum:=0;
    for j:=1 to m do
    begin
      a[i,j]:=random(19)-9;
      write(a[i,j]:5:1);
      sum:=sum+a[i,j];
      if (a[i,j]<0)and(boo=false) then boo:=true;
      if boo=true then inc(k);
    end;
    if (k=1)or(k=0) then writeln('  Нет таких элементов') else
      writeln('  После первого отрицательного - ',k-1,' элементов');
    b[i]:=sum/m;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if a[i,j]=0 then a[i,j]:=b[i];
     write(a[i,j]:5:1);
    end;
    writeln;
  end;
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.09.2012, 13:52
Помогаю со студенческими работами здесь

В каждой строке матрицы вычислить произведение частей стоящих до первого отрицательного элемента
Задана целая матрица T. Вычислить произведение частей, стоящих до первого отрицательного, в каждой строке матрицы. Считать, что в каждой...

Получить сумму ряда элементов, находящихся после первого отрицательного числа в i-ом рядке матрицы
Задано натуральное число n и целочисленная квадратная матрица порядка n получить вектор b0....bn-1 где bi это сумма элементов находящихся...

Вычислить сумму и количество элементов, стоящих до первого отрицательного элемента массива
Массивы. Написать программу-функцию Дан массив из 10 элементов. Вычислить сумму и количество элементов, стоящих до первого...

Определите среднее арифметическое всех значений элементов массива, стоящих после первого отрицательного элемента.
1. Определите среднее арифметическое всех значений элементов массива, стоящих после первого отрицательного элемента. 2. Дана строка...

Нужно посчитать сумму чисел, в промежутке от первого отрицательного числа до второго отрицательного числа
Я сделал вроде как, но ответ неправильный. Где то написал неправильно. procedure TForm1.Button1Click(Sender: TObject); var ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Установка Qt Creator без VPN. Сборка проекта из Qt Creator с помощью CMake для разработки обычных C/C++ проектов без установки фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru