0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 8
1

Составить алгоритм и программу для решения задачи

30.10.2012, 19:29. Показов 3032. Ответов 2
Метки нет (Все метки)

Дано квадратную матрицу А размера nхn целых чисел. Получить b1, ... , bn. , Где bi-это значение первого положительного элемента i-той строки матрицы (если таких элементов нет, то принять bi = -1.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2012, 19:29
Ответы с готовыми решениями:

Составить алгоритм и программу для решения задачи с использованием одномерных и двухмерных массивов
Дана матрица из 2 столбцов и 10 строк. Первый элемент каждой строки представляет диаметр...

Разработать алгоритм и программу для решения задачи по обработке типизированных файлов.
Разработать алгоритм и программу для решения задачи по обработке типизированных файлов. Дан файл...

Разработать алгоритм и программу для решения задачи с использованием строк символов
Условие: Дана строка символов. Определить количество слов, начинающихся с буквы "а", вывести на...

Составить программу последовательно используя для решения задачи все три циклические управляющие структуры
Помогите пожалуйста сижу 4 час не могу составить алгоритм и программу. Составить программу...

2
0 / 0 / 0
Регистрация: 18.10.2012
Сообщений: 8
01.11.2012, 19:34  [ТС] 2
Поможет кто-то?
0
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
01.11.2012, 19:53 3
Лучший ответ Сообщение было отмечено JoInDeR как решение

Решение

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
const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  b: array[1..nmax] of integer;
  n,i,j,k: integer;
begin
  randomize;
  write('Введите размер матрицы n: ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  for i:=1 to n do
  begin
    k:=0;
    for j:=1 to n do
    begin
      if a[i,j]<0 then inc(k) else
        if a[i,j]>0 then
        begin
          b[i]:=a[i,j];
          break;
        end;
      if k=n then b[i]:=-1;
    end;
  end;
  writeln('Полученный одномерный массив:');
  for i:=1 to n do write(b[i],' ');
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.11.2012, 19:53
Помогаю со студенческими работами здесь

Составить программу на языке Паскаль для решения задачи: Дано слово. Вывести на экран его третий символ
Составить программу на языке Паскаль для решения задачи: Дано слово. Вывести на экран его третий...

Составить программу решения задачи
Составить программу решения задачи Дано действительны a,b. Получить R= g(a,b)*g(b,a) +...

Составить алгоритм решения задачи и записать его в виде блок-схемы. Решить уравнение
1. Для заданных действительных чисел x, y, z вычислить значение функции:...

Составить программу решения задачи (с функции)
Составить программу решения задачи (с использованием процедуры и функции). Даны два действительных...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru