![Написать блок-схему к программе: uses crt; const n=40; var a: array[1..n] of integer; i: integer; pr](/tpl/images/0328/3279/8324a.jpg)
![Написать блок-схему к программе: uses crt; const n=40; var a: array[1..n] of integer; i: integer; pr](/tpl/images/0328/3279/d87bc.jpg)
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.
Объяснение:
Форматт жасау қажет ұяшықтарын белгілеу.
2. Формат, Условное форматированиетаңдау.
3. Пайда болған терезеде сәйкесінше қажет ұяшықтар үшiн шартты форматтаудың жасау үшін шартты құрастыру керек. Сосын Формат батырмасын басып керекті форматы жасау, шартты қаннағатындыратын ұяшықтар белгіленген болады.
4. «А также» батырмасын баса 3 шарттарға дейiн сәйкес форматтарды орнатуға болады. Шарттар ішінде мәндерден басқа формулаларды Ақиқат мен жалған мәндерін қайтарып беретін көрсетуге болады. Шарттарды алып тастау үшін «Удалить»батырмасын қолдану керек.
5. Барлық қажет шарттарды және оған сәйкесінше форматтарды ұйымдастырған сон Ok батырмасын басу керек..
Условные форматы можно копировать при кнопки «Формат по образцу» батырмасы арқылы Шартты форматтарды қөшіру мүмкін..
Егер бірнеше көрсетілген шарттардан ақиқатық мәнді бірден аса қабылдайтын болса онда қайсысы бiрiншi шын шартқа сәйкес келетін ,тек қана сол форматты қолданылады. Егер берілген шарттардың бiрi де шынайы мәндi қабылдамаса, онда ұяшықтардың форматы бұрынғы болып қалады.
Логикалық функциялар шартты орындауын тексеру немесе бірнеше шарттарды тексеру үшін арналған. Мысалы Егер (Если) функциясы көрсетілген шартты орындалуын анықтауға мүмкіндік беріп , шарт ақиқат немесе жалған болса бір мәнді қайтарып береді.
ЕГЕР(если), ЖӘНЕ(и), НЕМЕСЕ (или), ЕМЕС (не) логикаклық функияларға жатады.
Егер (ЕСЛИ) функциясы берілген шарт бойынша ақиқат есептелсе бір мәнді қайтарады , ал жалған болса басқа мәнді қайтарып тұрады.
Объяснение:
керек мәлімет осының ішінде дурс болса лаик и потписатся етш
