Складіть орієнтовний перелік програм, потрібних для роботи за комп'ютером учням; програмістам; фотохудожникам​. ів

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)
program n_1;
var a:array[1..10] of integer;
i, n, k, s:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
k:=0;
for i:=1 to n do
begin
a[i]:=random(20)+10;
writeln(a[i],' ');
if (i mod 2=0) then
s:=s+a[i];
If (i mod 2<>0) then
k:=k+1;
end;
writeln('Сумма=',s);
writeln('Кол-во нечётных элементов=',k);
end.
2)
program kol_vo_elementov;
var a:array[1..10] of integer;
i, n, k, s:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
k:=0;
for i:=1 to n do
begin
a[i]:=random(9)+1;
writeln(a[i],' ');
if (i mod 2=0) then
k:=k+1;
end;
writeln('Кол-во чётных элементов=',k);
end.