Помогите решить в паскале!!!
5-9 класс
|
Даны пять чисел,
каждое из которых по модулю не превышает ста. Вычислить максимум среди
отрицательных из них.
var a:array[1..5] of real;
b,c:integer;
max:real;
begin
c:=0;
max:=-100;
writeln('Введите числа');
for b:=1 to 5 do
begin
readln(a[b]);
if (a[b]<0)and (a[b]>max) then begin
max:=a[b];
c:=c+1;
end;
end;
if c>0 then writeln('Максимум среди отрицательных чисел равняется ',max)
else writeln('Нет отрицательных чисел');
end.
Другие вопросы из категории
котенка.Каждый вечер вы определяете его вес с помощью весов.Как можно описать на Паскале массив,в котором будут хранится значения веса котенка в течение мая.3)На основе этих заданий надо составить фрагмент программы на Паскале ввода исходных данных для массивов.
действия.
Заранее Спасибо.
1. Компютерная сеть, объеденяющая многие локальные сети. (10 букв)
2. Высокопрофесиональный программист. (5 букв)
3. Компютер абонента сети. (8 букв)
4. Способ организации текстовой информации, внутри которой установленны смысловые связи. (10 букв)
5. Обмен информацией по глобальной компютерной сети. ( Аж 16 букв!)
Читайте также
удалить последний из найденных.Помогите решить в паскале.(вычислить средн.ариф.номер э-та,....)
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.