Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 09.06.2014, 19:24   #1
Snyppi
Новичок
Джуниор
 
Регистрация: 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.
Snyppi вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Процедуры и функции - Заданы три двумерных массива одинаковой размерности. Написать фукнции и процедуры их обработки 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 12:00
Используя циклы, написать программу Станислава13 Помощь студентам 1 10.05.2010 17:59


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS