Поставьте соответствие, какому информационному процессу соответствует определенное действие. информационный процесс действие 1. передача решение какой-либо 2. хранени просмотр 3. обработка разговор по написание звонок прослушивание покупка

1.Передача информации

2. Сбор информации

3.Обрабатывание информации

4.Передача информации

5.Представление информации

6.Обрабатывание информации

7.Обрабатывание информации

8.Использование информации

вроде так

Объяснение:

рлллолшчллы пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук пук тра3 я не знаю почему у тебя так же когда ты один ты постоянно пишешь звонишь хотя бы тоже поела и все больше ничего я не знаю почему у тебя р от меня надо было с 33333месяцев Тогда и 44беседовать

//Задача 1

begin

 var a := ArrRandom(20, -20, 20).Println;

 Println(a.Min, ' ', a.Max);

end.

//Задача 2

begin

 var a := ReadArrInteger(10);

 a.Where(p -> p.IsOdd).Count.Println;

end.

//Задача 3

begin

 SeqGen(90, 10, x -> x + 1).Where(x -> x mod 3 = 0).Println;

end.

//Задача 4

begin

 ArrRandom(10,-20,20).Println;

end.

//Задача 5

begin

 var (a, b) := ReadInteger2;

 Range(a, b).Product.Println

end.

//Задача 4

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   sum += i;

   count += 1;

   n := n div 10;

 end;

 Writeln('Сумма цифр: ', sum);

 Writeln('Количество: ', count);

end.

//Задача 7

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   if not Odd(i) then count += 1;

   n := n div 10;

 end;

 if count <> 0 then Writeln('True')

 else Writeln('False');

end.

Задача 8

begin

 var n := ReadInteger;

 for var i := 1 to n do

 begin

   Println('Я НЕ учусь программировать');

 end;

end.