Var max,i:Integer;
A:Array [1..10] Of Integer;
Begin
For i:=1 To 10 Do ReadLn(A);
max:=A[1];
For i:=1 To 10 Do If max<A Then max:=A;
max - максимальное число массива A;
End;
задачи на паскале
Кому не лень решите задачи.
1.Составить программу поиска максимума в целочисленном массиве.
2.Составить программу поиска среднего арифметического элементов целочисленного массива.
3.Составить программу поиска произведения всех ненулевых элементов целочисленного массива.
4.Составить программу поиска количества отрицательных элементов целочисленного массива.
5.Составить программу поиска суммы отрицательных элементов целочисленного массива.
Заранее ОГРОМНОЕ СПАСИБО!
1.Составить программу поиска максимума в целочисленном массиве.
2.Составить программу поиска среднего арифметического элементов целочисленного массива.
3.Составить программу поиска произведения всех ненулевых элементов целочисленного массива.
4.Составить программу поиска количества отрицательных элементов целочисленного массива.
5.Составить программу поиска суммы отрицательных элементов целочисленного массива.
Заранее ОГРОМНОЕ СПАСИБО!
1.
2.
тожесамое, только:
max:=0; и вместо If... и т.д. пишешь max:=max+A
m:=max/10;
m типа Real
Если немного подумать над первой и второй, то остальные три можно без проблем сделать самому...;)
p.s.: Да, чуть не забыл Почитай (пункт 7) прежде чем задавать такие вопросы
>
Код:
2.
тожесамое, только:
max:=0; и вместо If... и т.д. пишешь max:=max+A
m:=max/10;
m типа Real
Если немного подумать над первой и второй, то остальные три можно без проблем сделать самому...;)
p.s.: Да, чуть не забыл Почитай (пункт 7) прежде чем задавать такие вопросы
>
Цитата:
Originally posted by Vufer
Помогите решить задачу
даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1,у1,х2,у2 - это целые числа в диаппазоне от 1 до 8, при этом координаты х - соответствуют буквенному коду поля, а координаты у -числовому. Определить сможет ли ладья перейти из одного поля на другое.
Помогите решить задачу
даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1,у1,х2,у2 - это целые числа в диаппазоне от 1 до 8, при этом координаты х - соответствуют буквенному коду поля, а координаты у -числовому. Определить сможет ли ладья перейти из одного поля на другое.
А кто разрешил в чужой теме свои задачи бросать.
Получаешь первое замечание :), говорю на полном серьезе.
1 - Сообщение свое убери.
2 - Открой свою тему (можно в разделе Паскаль)
3 - Пости в тему твой вариант решения, попытки ...
С уважением, модератор форума, Ольга
Цитата:
Originally posted by OlgaKr
А кто разрешил в чужой теме свои задачи бросать.
Получаешь первое замечание :), говорю на полном серьезе.
1 - Сообщение свое убери.
2 - Открой свою тему (можно в разделе Паскаль)
3 - Пости в тему твой вариант решения, попытки ...
С уважением, модератор форума, Ольга
А кто разрешил в чужой теме свои задачи бросать.
Получаешь первое замечание :), говорю на полном серьезе.
1 - Сообщение свое убери.
2 - Открой свою тему (можно в разделе Паскаль)
3 - Пости в тему твой вариант решения, попытки ...
С уважением, модератор форума, Ольга
[COLOR=crimson]Предупреждаю Всех кто ответит в этой ветке на этот вопрос, получит замечание. [/COLOR]
С уважением, Ольга