Написать программу ** Паскале: Среди 10 целых положительных и отрицательных чисел:1. ...

Question

Написать программу на Паскале: Среди 10 целых положительных и
отрицательных чисел:

1. Найти
максимальное и минимальное значения.

2. Среднее арифметическое среди трехзначных,
оканчивающихся на 1 и кратных 7.

Comments

ну хотя бы) и на этом спасибо

---

Массивы-то хоть можно использовать?

---

проходили)

---

сори

---

ой нет

---

А как без массивов? 10 чисел перебирать друг за другом?

---

массивы не проходили(

Answer 1

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<br>      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.

Comments

Так в комментариях же написано несколько выше...

---

Человек возжелал ручным вводом, в одной программе и без массивов...

---

Что непонятого?

---

Тестовое решение делать не стал%: слишком хлопотно выдумывать числа с такими условиями.

---

Чего он от меня хотел

Answer 2

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]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,

Comments

отлично

---

спасибо

---

ибо обоим)

---

оу)

---

Ладно спасибо, я 1 вроде сам написал, а вот со вторым беда(

---

да я проболел много, сам не знаю что мы там прошли) но вроде циклы