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.
Объяснение:
Объяснение:
1)Сымды жергілікті желірде Ethetnetкабелі мен желілік адаптерлер қолданылады
Сымсыз желі байланыс технология сымсыз жергілікті желі технологиялардың стандартизациясымен IEEE802.11х-ші тобы шұғылданатын болды Мысалы: WLAN Wireless Iocal Area Network қысқартумен жиі кездеседі
2)Мысалы: ақпарат технология дамыту жаңалықтардағы ақпаратты дамыту
3)Телефонды ескі, сымдық телефонға ауыстырыңыз, сымсыз желі бөлінетін сәулену де миға әсер етеді
4)1971 жылы желі арқылы электронды почта жіберуге мүмкіндік беретін алғашқы компьютерлік бағдарлама жасалып, ол кеңінен таралды.