Установите соответствие: 1 просмотр учениками видеоролика о суперкомпьютерах 2 измерение температуры больного каждый час 3 видеосъемка школьного праздника 4 пеперод текста с на язык а)сбор информации б) обрабока информации в)хранение информации г) передача информации

Точно не знаю, но мне кажется, что так: 1-г 2-а 3-в 4-б

Извините, но смысла в работе вашей программы я не нашёл. я написал свой вариант, если не подходит - пишите. program i_have_got_name; const n = 5; var   mas: array[1..n] of integer;           i,min: integer;   begin      min: =maxint;       writeln('введите целые числа');       for i : = 1 to n do          begin            readln(mas[i]);           if mas[i]< min then min: =mas[i];       end;       for i: = 1 to 5 do          if mas[i]< > min then write(mas[i],' '); end.

Простая program p; var ch: real;               i: integer; begin  ch: =65000;   for i: = 1993 to 2013 do       begin              ch: =trunc(ch*1.03);               writeln('численность населения в году №',i+1,' равна ',ch);             end; end. для любых данных program p; var year,y1: integer;             ch: real;           i: integer; begin     write('введите начальный год: ');         readln(year);         write('введите конечный год: ');         readln(y1);         write('введите число населения: ');     readln(ch);         for i: = year to y1-1 do            begin                ch: =trunc(ch*1.03);               writeln('численность населения в году №',i+1,' равна ',ch);         end; end.