Составить одномерный массив D из минимальных элементв столбцов матрицы В

@toyo556 · Регистрация: 25.05.2010

Author24 — интернет-сервис помощи студентам

Народ, помогите...
"Сформировать двумерный массив В размером 3х3 с помощью генератора случайных чисел и вывести элементы массива на экран и в файл. Составить одномерный массив D из минимальных элементв столбцов матрицы В (оформить нахождение минимального элемента в виде процедуры). Вывести элементы массива D на экран и в файл."
Что-то у меня никак не получается. Спасибо заранее.

Добавлено через 1 час 11 минут

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
uses crt;
const n=3;
var a:array[1..n,1..n] of byte;
    i,j:byte;
    f:text;
    fname:string;
begin
randomize;
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
      a[i,j]:=random (55);
       write(a[i,j]:3);
        end;
     writeln;
    end;
    begin
    Writeln;
     writeln('Введите имя файла');
      Readln(fname);
       Assign(f,fname+'.txt');
        rewrite(f);
      end;
readln;
end.

Массив сделал, но файл получается пустой... Как дальше?

@Puporev · 26.05.2010, 16:41

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
uses crt;
const n=3;
var a:array[1..n,1..n] of byte;
    i,j:byte;
    f:text;
    fname:string;
begin
randomize;
clrscr;
writeln('Введите имя файла');
Readln(fname);
Assign(f,fname+'.txt');
rewrite(f);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random (55);
    write(a[i,j]:3);
    write(f,a[i,j]:3,' ');
   end;
  writeln;
  writeln(f,'');
 end;
close(f);
readln;
end.

@toyo556 · 26.05.2010, 18:30 **[ТС]**

Спасибо, а как теперь продолжить программу? Мои попытки заканчиваются ошибкой 94, требует точку после end и дальше исполнение программы блокируется... =)

@Puporev · 26.05.2010, 20:41

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
uses crt;
const n=3;
var b:array[1..n,1..n] of byte;
    d:array[1..n] of byte;
    i,j,mn:byte;
    f:text;
    fname:string;
begin
randomize;
clrscr;
writeln('Введите имя файла');
Readln(fname);
Assign(f,fname+'.txt');
rewrite(f);
writeln('Матрица В:');
writeln(f,'Matrica B:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random (55);
    write(b[i,j]:3);
    write(f,b[i,j]:3,' ');
   end;
  writeln;
  writeln(f,'');
 end;
writeln;
writeln(f,'');
for j:=1 to n do
 begin
  mn:=b[1,j];
  for i:=1 to n do
  if b[i,j]<mn then mn:=b[i,j];
  d[j]:=mn;
 end;
writeln('Массив D:');
writeln(f,'Massiv D:');
for i:=1 to n do
 begin
  write(d[i],' ');
  write(f,d[i],' ');
 end;
close(f);
readln;
end.

@toyo556 · 26.05.2010, 21:24 **[ТС]**

Вот же спасибище! Я башку переломал, пытался в конец программы все прилепить, а оказывается там практически все переделывать надо...

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .	Реализация конвейеров машинного обучения с Python и Scikit-learn AI_Generated 23.04.2025 Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .	Контроллеры Kubernetes Ingress: Сравнительный анализ Mr. Docker 23.04.2025 В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .	Оптимизация кода Python с Cython и Numba py-thonny 23.04.2025 Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .	Микросервис на Python с FastAPI и Docker ArchitectMsa 23.04.2025 В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
Создаем веб-приложение на Vue.js и Laravel Reangularity 23.04.2025 Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .	Максимальная производительность C#: Span<T> и Memory<T> stackOverflow 22.04.2025 Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .	JWT аутентификация в Java Javaican 21.04.2025 JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .	Спринты Agile: Планирование, выполнение, ревью и ретроспектива EggHead 21.04.2025 Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .	Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров Programma_Boinc 21.04.2025 Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров. 3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .

@toyo556 0 / 0 / 0 Регистрация: 25.05.2010 Сообщений: 4
	26.05.2010, 18:30 [ТС]
	Спасибо, а как теперь продолжить программу? Мои попытки заканчиваются ошибкой 94, требует точку после end и дальше исполнение программы блокируется... =) 0

@toyo556 0 / 0 / 0 Регистрация: 25.05.2010 Сообщений: 4
	26.05.2010, 21:24 [ТС]
	Вот же спасибище! Я башку переломал, пытался в конец программы все прилепить, а оказывается там практически все переделывать надо... 0

Опции темы

Составить одномерный массив D из минимальных элементв столбцов матрицы В

Решение