Нужна блок-схема

@С.Т.А.Л.К.Е.Р. · Регистрация: 17.04.2010

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

Pascal

program m1;
var
a:array[1..50,1..50] of integer;
i,j,max,min,s,n,m,i1,j1:integer;
begin
randomize;
writeln('Vvedite kolichestvo srok',n);
readln(n);
writeln('Vvedite kolichestvo stolbcov',m);
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=-50+random(99);
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln;
end;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then begin
i1:=i; j1:=j; end;
writeln('Poslednie pologitelnie element v stroke #',i1,', stolbtse #',j1);
max:=a[1,1];
min:=a[1,1];
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
s:=max-min;
end;
end;
writeln('Raznost megdu max i min=',s);
begin
writeln('Vivodim poluchibshiica massin');
for i:=1 to n do
for j:=1 to m do
if i=i1 then if j=j1 then a[i,j]:=s;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:5);
end;
writeln;
end;
end;
readln;
end.

вот условие:
1. В массиве А(n,m) найти:
а) номер последнего положительного элемента;
б) разность между наибольшим и наименьшим элементами;
в) заменить последний положительный элемент на найденную разность.

@Rom@ · 05.05.2010, 19:58

.........

Новые блоги и статьи
В чем отличие между INNER JOIN и OUTER JOIN bytestream 22.01.2025 В современных базах данных информация часто распределена между множеством взаимосвязанных таблиц, что делает операции объединения JOIN неотъемлемой частью работы с SQL. Эти операции позволяют. . .	Как сделать первую букву заглавной в JavaScript bytestream 22.01.2025 JavaScript предоставляет разработчикам множество инструментов для эффективной работы с текстовыми данными. Одной из часто встречающихся задач при обработке строк является преобразование первой буквы. . .	Что такое Big O нотация и алгоритмическая сложность bytestream 22.01.2025 Введение в алгоритмическую сложность В мире разработки программного обеспечения эффективность алгоритмов играет crucial роль в создании качественных приложений. Алгоритмическая сложность. . .	Как решать конфликты объединения (merge) в Git bytestream 22.01.2025 Что такое конфликты слияния Конфликты слияния в системе контроля версий Git возникают в ситуациях, когда две или более ветки разработки содержат несовместимые изменения в одних и тех же участках. . .	Как использовать регулярные выражения bytestream 22.01.2025 Регулярные выражения представляют собой мощный инструмент для работы с текстовыми данными, который позволяет осуществлять поиск, проверку и манипуляцию строками на основе определенных шаблонов. Этот. . .	Как выйти из Vim bytestream 22.01.2025 Vim (Vi IMproved) представляет собой один из самых влиятельных текстовых редакторов в истории компьютерной индустрии, эволюционировавший из своего предшественника Vi, созданного Биллом Джоем в 1976. . .
NoSQL базы данных: что это такое и какие существуют bytestream 22.01.2025 В современную эпоху цифровой трансформации объемы данных растут экспоненциально, создавая новые вызовы для традиционных систем управления базами данных. NoSQL (Not Only SQL) представляет собой. . .	Обновление исследования от команды MCM (январь 2025 г.) Programma_Boinc 22.01.2025 Обновление исследования от команды MCM (январь 2025 г. ) Мы продолжаем изучать молекулярные сигнатуры, связанные с раком легких, с текущим фокусом на GCM1, факторе транскрипции, участвующем в. . .	Как работать с Kafka в Go (Golang) bytestream 22.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки событий и интеграции микросервисов. Эта система, изначально. . .	Как использовать RabbitMQ в Go (Golang) bytestream 22.01.2025 RabbitMQ представляет собой надежный и широко используемый брокер сообщений, который играет ключевую роль в построении современных распределенных систем и микросервисной архитектуры. В основе работы. . .	Как преобразовать список списков в простой список в Python bytestream 22.01.2025 При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .	Что такое GUID / UUID и как их создать bytestream 22.01.2025 В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .

@Rom@ 23 / 23 / 12 Регистрация: 29.11.2009 Сообщений: 210
	05.05.2010, 19:58	2
	......... Миниатюры 0

Опции темы