Предмет: Биология, автор: inozemtcevav

В организме инфицированных людей вирус возбудителя СПИДа можно обнаружить

Ответы

Автор ответа: bewopey722

0

Ответ:

при помощи манту до 12 лет

или диаскинтеза после 12 лет

Объяснение:

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Українська мова, автор: Аноним

Форми ступенів порівняння можна утвории від усіх прикметників ряд
малиновий, чистий, цікавий
симпатичний, холодний, дужий
український, жвавий, голосний
солоденький, ретельний, щирий

5 лет назад

Предмет: Математика, автор: knyrova07

3° (1 бал). Чи є розв'язком системи рівнянь x-y=7, [x+y= 9 пара чисел: а) (7; 0); б) (8; 1)? поможіть пж❤

5 лет назад

Предмет: Математика, автор: ermilinadiana2000

скильки буду як-130 9 км 970 М + 25

5 лет назад

Предмет: Математика, автор: Аноним

Решите уровнение:
8x:4 2третих=2 1седьмая:5 двенадцатых Помогите пожалуйста (

8 лет назад

Предмет: Информатика, автор: Антохаv

Срочно!!!!
НАПИШИТЕ БЛОК-СХЕМУ !!! ПОЖАЛУЙСТА
Найти среднее арифметическое четных элементов в массивах А(15) и С(9) из интервала [10;30]

PROGRAM lr1;
CONST N=9 ; M=15;
TYPE MASSIV=ARRAY [1..m] OF INTEGER;
VAR A,C:MASSIV; I:INTEGER;S1, S2:real;
{*ПРОЦЕДУРА ВВОДА ЭЛЕНТОВ МАССИВА*}
PROCEDURE INPUT (VAR X: MASSIV; K: INTEGER);
VAR I: INTEGER;
BEGIN
FOR I:=1 TO K DO
BEGIN
WRITE (' ВВЕДИ МАССИВ ');
READLN (X[I]);
END;
END;
{*ПРОЦЕДУРА ВЫВОДА ЭЛЕНТОВ МАССИВА НА ЭКРАН*}
PROCEDURE OUTPUT (VAR X: MASSIV; K: INTEGER);
VAR I: INTEGER;
BEGIN
WRITE (' ИСХОДНЫЙ МАССИВ');
FOR I:=1 TO k DO
WRITE (X[I]); WRITELN;-
END;
{*ПОДПРОГРАММА - ФУНКЦИЯ ОБРАБОТКИ МАССИВА *}
FUNCTION SARF (X: MASSIV; K: INTEGER): real;
VAR S,kol,i: INTEGER ; SA:real;
BEGIN
S:=0;kol:=0;
FOR I:=1 TO K DO
IF (X[I] MOD 2=0) and (X[I]>=10) and (X[I]<=30) THEN BEGIN S:=S+X[I]; kol:=kol+1;end;
SA:=S/kol;
SARF:=SA;
END;
{*ОСНОВНАЯ ПРОГРАММА *}
BEGIN
WRITELN ('INPUT MASSIV A');
INPUT (A, m);
OUTPUT (A, m);
S1:=SARF (A, m);
WRITELN ('среднее арифметическое массива A=', S1);
WRITELN ('INPUT MASSIV C');
INPUT (C, n);
OUTPUT (C, n);
S2:=SARF (C, n);
WRITELN ('среднее арифметическое массива C=', S2);
END.

8 лет назад