Язык qbasic ! решите , используя цикл while-wend 1. написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. 2. написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности неограниченна

'первая

clsscreen 12input "n"; ndim a(n)for i = 1 to n      input a(i)nextsum = 0for i = 1 to n      sum = sum + a(i)nextsrednee = sum / nprint sumprint srednee

'вторая

clsscreen 12input "n"; ndim a(n)for i = 1 to n      input a(i)nextmax = 0for i = 1 to n      if a(i) > max then max = a(i)nextprint max

Слово - "массив" ключ - "знание"       з     н   а     н    и   е       9   15   1  15   10   6 +       м   а   с     с   и   в       14   1   19   19   10   3      х  о      т      а  т    з   23  16   20  1   20   9

program fantscrin;

  const n = 10;

  var a: array [1..n] of integer;

      i,min,max: integer;

begin

  for i: =1 to n do

    a[i]: = random(41)-20;

  for i: =1 to n do

    write(a[i], '   ');

   

  min: =a[1];

  for i: =1 to n do

    if (a[i]< min) then min: =a[i];

 

  max: =a[1];

  for i: =1 to n do

    if (a[i]> max) then max: =a[i];

 

   

  writeln('');

  writeln(min+max);

end.