сервис вопросов и ответовНаписать программу на Паскале: Среди 10 целых положительных и
5-9 класс|
|
отрицательных чисел:
1.
Daniyal200394
10 февр. 2014 г., 3:41:27 (10 лет назад)
Schatanovaaliszazelu
10 февр. 2014 г., 5:26:49 (10 лет назад)
program aliona;
const n=10;
var a :array[1..n] of inreger;
min,max,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(100)+1;
write(' ',a[i]);
end;
min:=a[1];
for i:=1 to n do
if a[i]<a[1] then a[i]:=min;
max:=a[1];
for i :=1 to n do
if a[i]>a[1] then max:=a[i];
writeln('min=',min,'max=',max);
readln;
end,
Domkvartirabrik
10 февр. 2014 г., 8:09:47 (10 лет назад)
var
i, e, min, max, s, n: integer;
c: real;
begin
min := 32767; max := -32768; s := 0; n := 0;
Write('Введите 10 чисел через пробел ');
for i := 1 to 10 do
begin
Read(e);
if max < e then max := e;
if min > e then min := e;
if (e >= 100) and (e <= 999) then
if (i mod 10 = 1) and (i mod 7 = 0) then
begin n := n + 1; s := s + i end
end;
Writeln('max=', max, ', min=', min);
if n > 0 then Writeln('Искомое среднее равно ', s / n:0:5)
else Writeln('Нет трехзначных чисел, оканчивающихся на 1 и кратных 7')
end.
Kiss1970
10 февр. 2014 г., 10:46:44 (10 лет назад)
массивы не проходили(
Lenina1
10 февр. 2014 г., 11:58:35 (10 лет назад)
А как без массивов? 10 чисел перебирать друг за другом?
Ответить
Другие вопросы из категории
РЕШИТЕ В С++
Даны два целых числа, причём второе число не меньше первого. Напечатайте все целые числа из заданного диапазона, уменьшив каждое на 4.
Читайте также
Написать программу на Паскале: Среди 10 целых положительных и
отрицательных чисел:
1.
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
Помогите написать программу на Паскале.
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
Помогите решить задачки на паскале я совсем не разбираюсь в этом!!! 1)Дана таблица со значениями среднемесячных температур в течение года. Составить
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Вы находитесь на странице вопроса "Написать программу на Паскале: Среди 10 целых положительных и", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.