|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.06.2014, 19:24 | #1 |
Новичок
Джуниор
Регистрация: 09.06.2014
Сообщений: 1
|
Написать программу используя процедуры и функции
Помогите пожалуйста переделать прогу под процедуры и функции:
program lab8var3; const n=5; {type mas:array[1..n] of integer;} var a,b: array[1..n] of integer; s,j,i,i1,i2,k: integer; boo: boolean; begin boo:=false; k:=0; s:=0; write('Введите массив '); for i:=1 to n do begin write('a[',i,'] = '); readln(a[i]); if (a[i]=0)and(boo=false) then begin i1:=i; boo:=true; inc(k); end else if (a[i]=0)and(boo=true) then begin i2:=i; inc(k); end; end; if k<2 then writeln('Недостаточно нулей') else for i:=i1 to i2 do s:=s+a[i]; writeln('Сумма элементов между 1-м и последним нулями = ', s); For j := 1 To n-1 Do For i := 1 To n-1 Do If a[i] > a[i+1] Then Begin b[i]:=a[i]; a[i]:=a[i+1]; a[i+1]:=b[i] End; Writeln('Отсортированный массив чисел:'); For i:=1 To n Do Writeln (a[i]); readln; end. Последний раз редактировалось Snyppi; 09.06.2014 в 21:42. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Процедуры и функции - Заданы три двумерных массива одинаковой размерности. Написать фукнции и процедуры их обработки | sekirei | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 21.11.2013 15:45 |
С++ Написать программу, используя функции, вычисляющую итоговую сумму заработной платы, учитывая подоходный налог (13%), отчислени | alex1994max | Помощь студентам | 1 | 09.07.2013 12:21 |
Задача на множества.Написать программу не позволяющую вводить буквы русского алфавита.(написать подпрограммой используя процедуры | ANTON1994 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 09.02.2013 13:53 |
Написать программу используя подпрограмму- процедуру. | advokat_92 | Помощь студентам | 0 | 25.11.2010 11:00 |
Используя циклы, написать программу | Станислава13 | Помощь студентам | 1 | 10.05.2010 17:59 |