М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Стихит
Стихит
03.05.2023 12:58 •  Информатика

11. Що таке вкладені розгалуження? а) це фрагмент алгоритму, у якому одне розгалуження міститься всередені іншого розгалуження
б) це розгалуження, яке має декілька умов
в) це фрагмент алгоритму, у якому одне розгалуження виконується після виконання поперенього розгалуження​

👇
Ответ:
sadpepeee
sadpepeee
03.05.2023

А) Це фрагмент алгоритму, у якому одне розгалуження міститься всередені іншого розгалуження

4,8(8 оценок)
Открыть все ответы
Ответ:
huhrova23
huhrova23
03.05.2023
Program enot;
Var a: array [1..22] of integer;
i,h,n,k,c:integer;
 l:real;
begin
for i:=1 to 22 do
a[i]:=random(51)-25;
for i:=1 to 22 do
begin
if a[i]>0 then begin  c:=c+a[i];
  k:=k+1; 
end;
l:=c/k;
n:=0;
h:=0;
if a[i]<0 then h:=h+1;
if a[i]=0 then n:=n + 1;
end;
writeln(a[i],'среднее арифметическое= ',l:2:2,'; количество отрицательных = ', h,'; количество равных нулю = ',n);
end.

Вот и вторая задача:
Program enot;
Var a: array [1..4,1..4] of integer;
i,j,s,p,h:integer;
o:real;
begin
for i:= 1 to 4 do
  for j:= 1 to 4 do
   a[i,j]:= random(25)-12;
p:=1;
for i:= 1 to 4 do
begin
   s:=s+a[i,3];
   p:=p*a[i,i];
   end; 
   writeln('summa= ',s,'; произведение= ',p);
 for i:= 1 to 4 do
 for j:= 1 to 4 do 
begin 
h:=h+a[i,j];
   o:=h/16;
 end;
 writeln('среднее арифметическое= ',o);
end.
4,5(97 оценок)
Ответ:
Nikto58
Nikto58
03.05.2023
Uses
  Crt;

const
  n = 10;

type
  V = array[1..n] of integer;

function Mid(var a: V): double;
var
  i, s: integer;
begin
  s := 0;
  for i := 1 to n do s := s + a[i];
  Mid := s / n
end;

var
  x: V;
  i, j: integer;
  m: double;

begin
  Randomize;
  m := 0;
  for i := 1 to 5 do
  begin
    Writeln('Элементы массива ', i);
    for j := 1 to n do
    begin
      x[i] := Random(100);
      Write(x[i]:3)
    end;
    Writeln;
    m := m + Mid(x)
  end;
  Writeln('Среднее арифметическое пяти массивов равно ', m)
end.

Тестовое решение:
Элементы массива 1
 95 44 54 86 52 39 28 79 29 43
Элементы массива 2
 75 55 26 22 12 93 34 60 34 42
Элементы массива 3
 55 80 50 54 52 46 85 47 11 86
Элементы массива 4
 33 35  5 64 36 66 76 55 24 43
Элементы массива 5
 31 63 66 11 88  4 31 99 28 39
Среднее арифметическое пяти массивов равно 76.6
4,4(33 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ