Срочно!!!!!!! Пожалуйста помогите!!!!плиз - Форум
Воскресенье, 04.12.2016, 04:51
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Срочно!!!!!!! Пожалуйста помогите!!!!плиз
Срочно!!!!!!! Пожалуйста помогите!!!!плиз
ghpДата: Понедельник, 29.12.2008, 18:24 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
Дана целочисленная матрица A(n*n)состоящая из отрицательных,нулевых и положительных элементов.Составить вектор из min положительных элементов каждой строки, упорядочить его по неубыванию .Вывести исходную матрицу полученные вектора на экран.

помогите решить плиз очень срочно ещё плюс блок схему

Добавлено (29.12.2008, 18:24)
---------------------------------------------
плиз помогите срочно нужно завтра уже надо отдать ргф((((

Сообщение отредактировал ghp - Вторник, 30.12.2008, 10:22
 
notnotДата: Понедельник, 29.12.2008, 21:03 | Сообщение # 2
Генерал-лейтенант
Группа: Активный пользователь
Сообщений: 54
[ 10 ]
Статус: Offline
Code
program xersvami;

uses crt;

const n = 5;

var A:array [0..n,0..n] of integer;
      B:array [0..n] of integer;

procedure Sort;
var i,j,buf:integer;
begin
     for j:=0 to n-1 do begin
        for i:=0 to n-j-1 do begin
           if b[i]>b[i+1] then begin
              buf := b[i];
              b[i] := b[i+1];
              b[i+1] := buf;
           end;
        end;
     end;
     writeln; writeln;
     for i:=0 to n do
        write(b[i]:6);
end;

procedure MinItem;
var i,j,min:integer;
begin
     for i:=0 to n do begin
        min := 20;
        for j:=0 to n do begin
           if (a[i,j]<min) and (a[i,j]>0) then
              min := a[i,j];
        end;
        b[i] := min;
     end;
end;

procedure InOutput;
var i,j:integer;
begin
     Randomize;
     for i:=0 to n do begin
        for j:=0 to n do begin
           A[i,j]:= random(20)-7;
           write(a[i,j]:4);
        end;
        writeln; writeln;
     end;
end;

begin
ClrScr;
InOutput;
MinItem;
Sort;
Readkey;
end.

было бы еще очень неплохо, если бы текст задачи был написан без ошибок и опечаток.


я - девушка!! +_+

Сообщение отредактировал notnot - Понедельник, 29.12.2008, 21:09
 
ghpДата: Вторник, 20.01.2009, 12:09 | Сообщение # 3
Рядовой
Группа: Новичок
Сообщений: 2
[ 0 ]
Статус: Offline
вроде исправил ))))торопился спс

Добавлено (20.01.2009, 12:09)
---------------------------------------------
парни а блок схему можно срочно срочно(((

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Срочно!!!!!!! Пожалуйста помогите!!!!плиз
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016