Question

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

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

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

Answer 1

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,

Answer 2

оу)

Answer 3

отлично

Answer 4

ибо обоим)

Answer 5

спасибо

Answer 6

)))

Answer 7

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.

Answer 8

теперь понятно ......но не все же знают что к чему в информатике.....поэтому и учим её

Answer 9

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

Answer 10

что именно написано?

Answer 11

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

Answer 12

)))...........