ТЕКСТ ЗАДАНИЯ Какими свойствами обладает информация?Доступность, актуальность, полнота, объективность, ясность, полезностьчисло, текст, графика, звук, видеобиологические, техническиезрительная, слуховая, тактильная, осязательная, обонятельная. соч нужно

полнота, актуальность, полезность, доступность, краткость ну типо того (если правильно поставь сердечко :3)

число текст графика звук

Объяснение:

Const n=10; 
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; 
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>0 then s:=s+a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('s = ',s,'   min = ',min);
for i:=1 to n do
 if a[i]>0 then a[i]:=s
  else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do  write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   9  -3  -5   7   1   5  -6   9  -8   7
s = 38   min = -8
Измененный массив:
  38   5   3  38  38  38   2  38   0  38

program z1;

var a,m:integer;

begin

m:=30000;

repeat

read(a);

if (a <> 0) and (a mod 2 = 0) and (a mod 10 <> 2) and (m > a) then m:=a

until a = 0;

writeln(m)

end.

Объяснение:

m равно максимально возможному чётному числу (согласно условию)

Цикл с пост условием:

ввод числа

проверка числа (верно, когда верны все условия):

    не 0 (a <> 0) - не является условием окончания последовательности

    число чётное (a mod 2 = 0)

    число не оканчивается на 2 (a mod 10 <> 2)

    число меньше m (m > a)

если проверка пройдена, то переменной m присваивается значение числа

Проверка условия выхода из цикла (a = 0)

Вывод m