сервис вопросов и ответовСоставить в Паскале массив из н-чисел. Какие числа встречаются чаще - положительные или отрицательные? ПЛИЗ,СРОЧНО,ОЧЕНЬ НАДО!
10-11 класс|
|
Herobrin0Voin
30 мая 2016 г., 19:20:46 (7 лет назад)
Samolyotstels2
30 мая 2016 г., 21:20:16 (7 лет назад)
заведи массив и проверяй его if a[I] <> 0 then s:=s+1 else s:=s-1;
Ответить
Другие вопросы из категории
Документ объемом 10 Мбайт можно передать с одного компьютера на другой двумя способами: А) Сжать архиватором, передать архив по каналу связи, распаковать
Б) Передать по каналу связи без использования архиватора. Какой способ быстрее и насколько, если – средняя скорость передачи данных по каналу связи составляет 218 бит в секунду, – объем сжатого архиватором документа равен 30% от исходного
Нарисуйте два варианта графа системы «Компьютер», содержащего следующие вершины: процессор, оперативная память, внешняя память, клавиатура, дисплей,
принтер; а) линия связи обозначает отношение «передает информацию»; б) линия связи обозначает «управляет».
Читайте также
на языке паскаль 1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
1)дан массив натуральных чисел найдите сумму всех его элементов 2)вычислить количество положительных чисел среди 10 элементов вещественного
массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
Ребят, помогите пожалуйста объяснить задачи!!!
В целочисленной
последовательности есть нулевые элементы. Создать массив из номеров этих
элементов.
Program
Om1;
Uses
crt;
Var
a :array
[1..100] of real;
i,n,j :
integer;
x :
array [1..100] of real;
Begin
clrscr;
write('n=');readln(n);
for i:=1
to n do
readln(a[i]);
j:=1;
for i:=1
to n do
if
a[i]=0 then
begin
x[j]:=i;
j:=j+1
end;
for i:=1
to j-1 do
write(x[i],' ');
End.
Дана последовательность
целых чисел а1, а2….аn.
Выяснить какое число встречается раньше, положительное или отрицательное.
Program
num2;
Uses
crt;
VAr
a :array
[1..100] of real;
i,n :
integer;
Begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1
to n do
begin
if
a[i]<>0 then
if
a[i]>0 then
begin
writeln('Положительное встречается раньше');
break
end else
begin
writeln('Отрицательное встречается раньше');
break
end;
end;
End.
Дана последовательность
действительных чисел а1, а2….аn. Выяснить будет ли она возрастающей.
Program
num4;
Uses
crt;
Var
a :
array [1..100] of real;
i, n, j
:integer;
Begin
clrscr;
write('n=');readln(n);
a[n+1]:=a[n]+1;
for i:=1
to n do
readln(a[i]);
j:=0;
i:=1;
while
i<n do
begin
if
a[i]<a[i+1] then
begin
j:=j+1;
i:=i+1
end
else
begin
writeln('Последовательность невозрастающая');
break
end;
end;
if i=n then writeln('Последовательность возрастающая');
End.
Найти самую большую цифру
целого числа.
Program
rar;
uses
crt;
var
n:longint;
b:byte;
Пожалуйста помогите составить программу.Заполнить массив из 500 элементов случайными числами в интервале [ 0 .. 100 ] . Отсортировать его по
возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» .
Вы находитесь на странице вопроса "Составить в Паскале массив из н-чисел. Какие числа встречаются чаще - положительные или отрицательные? ПЛИЗ,СРОЧНО,ОЧЕНЬ НАДО!", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.