irkaveerova
22.06.2022 10:30

1. Какую функцию в среде программирования выполняют компоненты визуальной среды? 2. Что вы можете сказать о компоненте RadioGroup и его свойствах?
3. Как вы опишете работу компонента CheckBox?
4. Какие свойства компонента Memo вы можете перечислить?
5. Какова функция компонента Image?
6. Как выбираются случайные числа?

От что у меня есть ✔​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
досметова
07.08.2022 01:52
1)
 const     k = 15; 
  var 
     a : array [1..k] of integer; 
     s : real; 
      i : integer; 
begin 
 randomize; 
 s := 0; 
for i := 1 to k do       //Обработка массива чаще всего 
  begin                      //осуществляется в цикле
    a[i] := random(21);         //Формирование
    s := s + a[i];                      //Подсчет суммы элементов
end; 
 s := s / k;                              //Среднее арифметическое (сумма/кол - во)
writeln (s:3:3); 
end.

3)  const     n = 5; 
       var 
           a : array [1..n] of integer; 
            i,k : integer; 
 begin 
k := 0;   
  for i := 1 to n do   
         begin     
  readln (a[i]);             //Считываем элемент
   if a[i] < 0 then          //Если элемент меньше нуля
     k := k +1;                  //счетчик +1
           end;
   writeln (k);
  end.
0,0(0 оценок)
Ответ:
taotourp00p0i
03.03.2020 13:20
Type
    mas = array [1..50] of integer;
var
   x,y : mas;
   s1,k1,s2,k2 : integer;
   s,k : integer;
//Если вещественные, а не целые заменить на real(integer)

procedure ma (var x,y : mas);
  var
      i : integer;
  begin
    for i := 1 to 50 do
      begin
      x[i] := random(50);
      y[i]:=random(75);
       end;
   end;
procedure sk (var s,k : integer; a : mas);
  var
      i : integer;
   begin
    s := 0; k := 0;
    for i := 1 to 50 do 
     if a[i] > 0 then
      begin
       s := s + a[i];
       k := k +1;
      end;
   end;

 
begin
randomize;
ma(x,y);
sk (s,k,x);
s1 := s; k1 := k;
sk (s,k,y);
s2 := s; k2 := k;
//вывод по желанию
end.

  
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота