Reutskii-Kirilovskii1625
?>

Напишите отличия свободного, бесплатного и условно-бесплатного ПО от коммерческого ПО.

Информатика

Ответы

amxvel7596
Задача 1
Var i,sum:integer;
      mas:array [1..10] of integer;
Begin 
  for i:=1 to 10 do begin         
     mas[i]:=random(20);           
      write(' ',mas[i]);           
     sum:=sum+mas[i];                   
                         end; 
writeln; 
   write('Среднее арифметическое этих чисел = ',sum/10);
End.

Задача 2 
Var i,max:integer;
Begin 
readln(i); 
    while (i<>0) do begin   
       if (i>max) then max:=i;   
          readln(i);     
                       end; 
  Writeln('Максимальное число: ',max);
End.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Напишите отличия свободного, бесплатного и условно-бесплатного ПО от коммерческого ПО.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Стуканова УЧРЕЖДЕНИЕ1877
Artyukhin545
Борисовна_Кашутина
skorykin123371
larson96
Sergei_Olga658
webotryvclub21
admiral-kazan
Ekaterina1654
Анастасия Елена
Юлия1972
ekaterinkat
ranocchio6
goldenshtein33333
sbn07373