Смотрите есть тег - < это < , а как другой вот это - > какой он делается

Объяснение:

1)Сымды жергілікті желірде Ethetnetкабелі мен желілік адаптерлер қолданылады

Сымсыз желі байланыс технология сымсыз жергілікті желі технологиялардың стандартизациясымен IEEE802.11х-ші тобы шұғылданатын болды Мысалы: WLAN Wireless Iocal Area Network қысқартумен жиі кездеседі

2)Мысалы: ақпарат технология дамыту жаңалықтардағы ақпаратты дамыту

3)Телефонды ескі, сымдық телефонға ауыстырыңыз, сымсыз желі бөлінетін сәулену де миға әсер етеді

4)1971 жылы желі арқылы электронды почта жіберуге мүмкіндік беретін алғашқы компьютерлік бағдарлама жасалып, ол кеңінен таралды.

1)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 10 do

begin

if mas[i]<0 then counter:=counter+1;

end;

end.

2)

var mas: array[1..5] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 5 do

begin

if (mas[i]>0) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

3)

var mas: array[1..15] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 15 do

begin

if (mas[i]>5) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

4)

var mas: array[1..15] of integer;

var counter: integer;

begin

for i:= 1 to 15 do

begin

mas[i] = random(20) - 5;

end;

for i:= 1 to 15 do

begin

writeln(mas[i]);

end;

for i:= 1 to 15 do

begin

if (mas[i]>0) then counter:=counter+1;

end;

end.

5)

var mas: array[1..7] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]>0 then mas[i]=0;

end;

for i:= 1 to 7 do

begin

writeln(mas[i]);

end;

end.

6)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

var sum: real;

var average: real;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]<0 then

begin

sum:=sum+mas[i];

counter:=counter+1;

end

end;

average:= sum/counter;

end.

Объяснение: