Program N2;
var M: Array [1..10] of Integer;
max: Integer; I: Byte;
begin
    Writeln('Введите 10 чисел: ');
    For I := 1 to 10 do
    begin
    Write('N',i,': ');
    Readln(M[i]);
    end;
    Max := M[1];
    For I := 1 to 10 do
    if Max < M[i] then Max := M[i];
    Write('Максимальное число: ', Max);
Readln;
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

19.06.2014, 17:04

Ответы с готовыми решениями:

Записать комментарий для каждой строки программы № 20
Program L1_06; uses Crt; var a,b,c: integer; begin Clrscr; Write(' ЧЕРЕЗ ПРОБЕЛ ВВЕДИТЕ ТРИ...

Записать комментарий для каждой строки программы № 10
Program Massiv; uses Crt; const N=10; Var A: array of integer; і:іnteger; begin...

Записать комментарий для каждой строки программы № 25
Program Para; Var p,s,i,j,n:longint; begin WriteLn('Введите число n '); ReadLn(n); p:=1;...

Записать комментарий для каждой строки программы № 24
program san; const g=-9.8; const y=0; var x,h:real; begin writeln('Введите начальную...

	19.06.2014, 17:04

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

19.06.2014, 17:04

Помогаю со студенческими работами здесь

TDBLookupComboBox можно ли сделать комментарий для каждой строки?
Здравствуйте. Для выбора записи из БД использую TDBLookupComboBox. Можно ли сделать так, что бы...

Написать комментарий к каждой строке программы
написать комментарий к каждой строке program lab1; const nmax = 100; type vector = array of...

Написать комментарий к каждой строке программы
написать комментарий к каждой строке const n=10; type matrix=array of integer; var...

Для каждой строки матрицы найти максимальный элемент и записать их в одномерный массив
помогите пожалуйста. Pascal. задание: для каждой строки матрицы найти максимальный элемент и...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх