Написать программу на Паскале: Среди 10 целых положительных и
5-9 класс
|
отрицательных чисел:
1.
var a: array[1..10] of integer;
i,max,min:integer;
begin
writeln('введите числа');
readln(a[1]);
min:=a[1];
max:=a[1];
for i:=2 to 10 do
begin
readln(a[i]);
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
writeln(max,' ', min);
end.
решение смотри во вложении
Другие вопросы из категории
положительных элементов.
Читайте также
отрицательных чисел:
1.
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.