Тема: Паскаль
Показать сообщение отдельно
Старый 27.03.2013, 17:36   #5 (permalink)
anka950
Новичок
 
Регистрация: 21.03.2013
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Var x:array[1..15] of word;
k,m,i,n:word; mas:word;
Y:array[1..12] of word;
Begin
CLRSCR;
n:=15;
Read(x[1]);
max:=x[i];
For i:=2 to n do begin
Read(x[i]);
If max<x[i] then begin
max:=x[i]; k:=i;end;end;
Writeln('максимум: ',max);
Writeln ('номер максимума: ',k);
Readkey ;
End.
anka950 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070