|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2013, 17:09 | #1 |
Новичок
Джуниор
Регистрация: 25.12.2013
Сообщений: 2
|
Составьте блок-схему)
uses crt;
const n=5; var a:array[1..n,1..n] of integer; i,j,max:integer; BEGIN clrscr; for i:=1 to n do for j:=1 to n do a[i,j]:=random(100); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; max:=a[1,1]; for i:=1 to n do if a[i,i]>max then max:=a[i,i] else if a[i,n-i+1]>max then max:=a[i,n-i+1]; writeln; writeln('MAX = ',max); readkey; END. на завтра очень нужно)) |
25.12.2013, 18:14 | #2 |
Новичок
Джуниор
Регистрация: 25.12.2013
Сообщений: 2
|
Вот, пожалуйста, блок - схема
http://files.mail.ru/B82228EFC7D34F5D90019783129D3949 Ссылка на DOCX файл, в нем нужная тебе блок схема. Как хочешь ее редактируй, мог бы и картинкой скинуть, но тогда качество теряется, могут придраться я так думаю.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составьте блок схему к программе | Tolian92 | Помощь студентам | 4 | 26.01.2012 07:46 |
составьте блог схему | Tolian92 | Помощь студентам | 3 | 24.01.2012 19:30 |
составьте блок схему на си | Tolian92 | Помощь студентам | 2 | 21.01.2012 19:20 |
составьте блок схему на с++ | Tolian92 | Помощь студентам | 2 | 21.01.2012 15:07 |
Составьте блок-схему к моей программе!С++ | BlackEzh | Помощь студентам | 5 | 24.12.2010 16:22 |