ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО! Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 3 Найти сум

ССССРРРРРРРРРРРРРРЛОООООООООООЧЧЧЧЧЧЧЧНООООООООО!!!

1. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.

  • Два в одном:

    var

      a: array [1..10] of integer;

      s, i, max: integer;

     

    begin

      max:= - 16;

      for i:= 1 to 10 do

      begin

        a[i]:= random(50) - 15;

        writeln(a[i]);

        s:= s + a[i];

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

      end;

      writeln('Сумма элементов массива: ', s);

      writeln('Максимальный элемент массива: ', max);

    end.

      

  •  

    program Mas1;

      uses Crt;

      const n:=10;

      Type Ar=array [1..n] of real;

      var v:Ar;

            s,max:real;

            i:integer;

    Begin

       Clrscr;

       s:=0;

       max:=0;

       i:=1;

       For i:=1 to n do

        begin

        v[i]:=50*random-15;

        s:=s+v[i];

        If max

        end;

       writeln ('S= ', s:6:2,'   Max=  ', max);

    Readln;

    End.

     

       

Внимание, только СЕГОДНЯ!
Ссылка на основную публикацию
2018