Информатика, опубликовано 09.01.2019 16:01
Дан массив из N действительных чисел. Подсчитать, сколько в нем отрицательных, положительных и нулевых элементов.
Ответ оставил: Гость
Var a: array[0..100] of integer; n,i,s,otr,pol,nol: integer; begin otr: =0; pol: =0; nol: =0; writeln('введите кол-во чисел, не привышающие число 100'); readln(n); dec(n); for i: =0 to n do begin writeln('введите ',i+1,' число'); readln(s); a[i]: =s; end; for i: =0 to n do begin if a[i]> 0 then inc(pol); if a[i]< 0 then inc(otr); if a[i]=0 then inc(nol); end; writeln('положительных чисел: ',pol); writeln('отрицательных чисел: ',otr); writeln('нулей: ',nol); end.
Ответ оставил: Гость
____Выделить объект
____Выбрать команду "Переименовать" в меню, появится в поле имени объекта текстовый курсор - вертикальная мигающая палочка.
____Стереть старое имя.
____Набрать с клавиатуры нужные для задания имени символы;
____1ЛКМ на свободном месте рабочей области окна или нажать клавишу Enter для подтверждения операции.
____Выбрать команду "Переименовать" в меню, появится в поле имени объекта текстовый курсор - вертикальная мигающая палочка.
____Стереть старое имя.
____Набрать с клавиатуры нужные для задания имени символы;
____1ЛКМ на свободном месте рабочей области окна или нажать клавишу Enter для подтверждения операции.
Ответ оставил: Гость
1)имя : array [ начальное значение .. окончательное значение ] of тип массива
2)С помощью for i:=1 to n fo
readln(mas[i])
3)for i:=1 to n fo
writeln(mas[i])
4)s:=o
for i:=1 to n fo
s:=s+mas[i]
5)s:=o
for i:=1 to n
if условие then
s:=s+mas[i]
6)
k:=o
for i:=1 to n
if условие then
k:=k+1
7)max:=mas[1]
for i:=1 to n
if max < mas[i] then
a :=max ;
max:=mas[i];
mas[i]:=a;
8)Сортировки бывают разные например такая
for i:=1 to n-1 do
for j:=1 to n-i do
if mas[i]>mas[i+1] then
a :=mas[j+1];
mas[j+1]:=mas[j];
mas[j]:=a;
2)С помощью for i:=1 to n fo
readln(mas[i])
3)for i:=1 to n fo
writeln(mas[i])
4)s:=o
for i:=1 to n fo
s:=s+mas[i]
5)s:=o
for i:=1 to n
if условие then
s:=s+mas[i]
6)
k:=o
for i:=1 to n
if условие then
k:=k+1
7)max:=mas[1]
for i:=1 to n
if max < mas[i] then
a :=max ;
max:=mas[i];
mas[i]:=a;
8)Сортировки бывают разные например такая
for i:=1 to n-1 do
for j:=1 to n-i do
if mas[i]>mas[i+1] then
a :=mas[j+1];
mas[j+1]:=mas[j];
mas[j]:=a;
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01