Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Snoopy
1912 / 1069 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
13.12.2009, 17:49 0

Ввести с клавиатуры квадратную матрицу X(M,M) (M<=10).Определить в ней максимальные элементы каждой строке и записать вычесленные значения в файл F1.

13.12.2009, 17:49. Просмотров 626. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено stuped как решение

Решение

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
42
43
44
45
46
47
48
49
50
uses crt;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
    i,j,n,tempi,tempj,min:integer;
    f:text;
    fname:string;
 begin
  ClrScr;
  Randomize;
   repeat
    Write('n= ');
    Readln(n);
   until n<=10;
    for i:=1 to n do
     begin
      for j:=1 to n do
       begin
       a[i,j]:=random(20)-10;
       Write(a[i,j]:4);
      end;
     Writeln;
    end;
   b[i]:=1;
    for i:=1 to n do
     for j:=1 to n do
       if a[i,j]>b[i] then
        b[i]:=a[i,j];
  Writeln;
   Writeln('Vvedite imja faila!');
    Readln(fname);
     Assign(f,fname);
     Rewrite(f);
      for i:=1 to n do
       Write(f,b[i]:4);
     close(f);
   for i:=1 to n do
    Write(b[i]:4);
  min:=1;
   for i:=1 to n do
    for j:=1 to n do
     if a[i,j]<min then
      begin
       min:=a[i,j];
       tempi:=i;
       tempj:=j;
      end;
     Writeln;
   Writeln('Min [',tempi,',',tempj,']');
  Readln;
 end.


Вернуться к обсуждению:
Ввести с клавиатуры квадратную матрицу X(M,M) (M<=10).Определить в ней максимальные элементы каждой строке и записать вычесленные значения в файл F1.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2009, 17:49
Готовые ответы и решения:

Определить в матрице максимальные элементы каждой строки и записать их значения в файл
Помогите пожалуйста!!!!!!!11 задание 1 Ввести с клавиатуры квадратную...

Определить сумму элементов в каждой строке матрицы и максимальные элементы в каждой строке
пожалуйста, помогите написать программу по заданию: получить целочисленную...

ввести квадратную матрицу 10*10, в процедуре на место отрицательных элементов записать нули
1) Составить программу из 2 частей, в основной программе ввести квадратную...

Найти в каждой строке матрицы минимальные и максимальные элементы
...помогите пожалуйста составить две програмки,ничего не получается у...

Найти максимальные элементы каждой строки(столбца) матрицы и записать их в одномерный массив
Найти максимальные элементы каждой строки(столбца) матрицы и записать их в...

1
Другие темы раздела
Pascal Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае http://www.cyberforum.ru/pascal/thread73980.html
все цифры заданного четырехзначного числа N различны.
Pascal Написать рекурсивную функцию для вычисления суммы цифр натурального числа Написать рекурсивную функцию для вычисления суммы цифр натурального числа Для тех кто помогал обязательно отблагодарю! Добавлено через 1 час 31 минуту Так или нет скажите хотябы uses crt;... http://www.cyberforum.ru/pascal/thread73978.html
Pascal Составить программу каходящую максимальное из минимальных
задание вот в чём : Создать матрицу n*m(3x4) в каждой строке найти минимальное число(вывести их) из минимальных чисел найти максимальное(вывести его и написать индекс) вот мой частичный код :...
Очень очень срочно!!! Pascal
ch x= Σ x*2x-1/(2*n)!=1+x*2/2!+x*4/4!+x*6/6!+x*8/8!+... , |X|<бессконечно, ch x= e*x+e*(-x)/2.
Pascal Написать программу, в результате выполнения которой булевская переменная t получает TRUE... http://www.cyberforum.ru/pascal/thread73970.html
Добрый вечер!Помогите пожалуйста написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае(Оператор IF...
Pascal Дано натуральное число N (типа LongInt). uses CRT; var m:set of char; s:string; i:byte; k:char; begin clrscr; write('Введите число='); подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru