Var m : array[1..50] of Integer;
i,max : Integer;
Begin
max:=0;
For i:=1 to 50 do
Begin
m[i]:=Random(100);
if m[i]>max then max:=m[i];
end;
Writeln(max);
end.

0 0

1 год назад

в массив вводят рост 10 человек в сантиметрах с клавиатуры.составьте программу вычисления суммарного роста всех людей и средний

Татьяна75

Среднее значение округляется до целого(дробная часть отсекается)

#include <iostream>
using std::cout;
using std::cin;
using std::endl;

int main()
{
   int a[10];
   int sum = 0;

   cout << "Enter the growth of ten people:" << endl;

   for(int i = 0; i < 10; i++)
   {
       cin >> a[i];

       sum += a[i];
   }

   cout << "\nThe total growth of all people equal to " << sum << "sm"
       << "\nThe average growth of all people equal to " << (sum / 10) << "sm" << endl;

   return 0;
}

0 0

3 года назад

Який результат виконання такого фрагменту програми F:=2; i:=16; While i>0 do Begin F:=F*2-1; I:=I-4; End Write(F)

Леся06

Посмотри поможета так думаю 2×16

0 0

4 года назад