Кто-то шарит в Турбо Паскале?? - HARDTECHNO - Неофициальный форум студентов ВНТУ

Кто-то шарит в Турбо Паскале??

2Glamorous

Дата: Понедельник, 14.01.2008, 21:38 | Сообщение # 1

Рядовой

Группа: Участники

Сообщений: 3

Репутация: 0

Статус: Offline

Воопщем вот такая вот задачка: Створити блок схему алгоритму та написати програму на мові Turbo Pascal наступной задачі: Задача. Створити масив дійсних чисел 20 елементів та відшукати максимальний елемент Памагите участнеги! :'(

Polik

Дата: Понедельник, 14.01.2008, 22:33 | Сообщение # 2

Генерал-лейтенант

Группа: Участники

Сообщений: 657

Репутация: 12

Статус: Offline

program massivchik;
type mas=array[1..20]of real;
var masx:mas;
i:byte;
procedure inp;
begin
writeln('vvedit vsi X:');
for i:=1 to 20 do read(masx[i]);
readln;
end;
procedure maxis;
var m:real;
begin
m:=masx[1];
for i:=2 to 20 do
if masx[i]>m then m:=masx[i];
write('maximalne tchislo =',m);
end;
begin
inp;
maxis;
readln;
end.

з блок скемою розбирайся сам(а), ато якось стидно

Если лошадь говорит тебе что ты сумашедший, значит так оно и есть!

Сообщение отредактировал Polik - Понедельник, 14.01.2008, 22:35