Дано:массивы А(8),В(11). Определить в каком массиве отрицательное число встречается раньше. Номер первого отрицательного элемента в массиве находить в
10-11 класс
|
подпрограмме.
type
V=array[1..11] of integer;
function FirstNegative(a:V;n:integer):integer;
var
i:integer;
begin
i:=0;
Result:=0;
repeat
i:=i+1;
if a[i]<0 then Result:=i
until (Result>0) or (i>n)
end;
const
m=8;
n=11;
var
a,b:V;
i,p,q:integer;
begin
Randomize;
for i:=1 to m do a[i]:=random(100)-50;
for i:=1 to n do b[i]:=random(100)-50;
p:=FirstNegative(a,m);
q:=FirstNegative(b,n);
writeln('Массив А');
for i:=1 to m do write(a[i]:5);
writeln;
writeln('Массив B');
for i:=1 to n do write(b[i]:5);
writeln;
if p<=q then writeln('Номер первого отрицательного элемента в массива А: ',p)
else writeln('Номер первого отрицательного элемента в массива B: ',q)
end.
Тестовый прогон:
Массив А
37 14 -25 32 30 -29 38 27
Массив B
33 -36 23 -17 -3 -16 -33 33 -48 -39 30
Номер первого отрицательного элемента в массива B: 2
Другие вопросы из категории
ВТОРОЕ ЧИСЛО.ЧТОБЫ УЗНАТЬ СЕКРЕТ ЭТОГО ФОКУСА,ВЫПОЛНИ АЛГОРИТМ ДЛЯ ТРЕХ РАЗНЫХ ПАР ЧИСЕЛ.ЗАПИСЫВАЙ ,ЧТО ПОЛУЧАЕТСЯ ПОСЛЕ КАЖДОГО ДЕЙСТВИЯ.1.НАЧАЛО 2.ЗАГАДАЙ ЛЮБОЕ ЧИСЛО А И ЛЮБОЕ ЧЕТНОЕ ЧИСЛО Б 3.УМНОЖЬ ЧИСЛО А НА 2 4.К РЕЗУЛЬТАТУ ПРИБАВЬ ЧИСЛО Б 5.РАЗДЕЛИ СУММУ НА 2 6. ВЫЧТИ ЧИСЛО А 7. СООБЩИ РЕЗУЛЬТАТ 8 КОНЕЦ ЧТО ПОЛУЧ 31,8
этой же программе вывести сколько будет стоить столько рулонов.
К нему дописывается результат сложения средних разрядов по такому правилу: если он меньше первой суммы, то полученное число приписывается к первому слева, иначе – справа. Итоговое число получают приписыванием справа к числу, полученному после второго шага, сумму значений младших разрядов исходных чисел. Какое из перечисленных чисел могло быть построено по этому правилу? 1) 141819 2) 171814 3) 171418 4) 141802
Читайте также
среди 10 элементов вещественного массива
3)заполнить массив из n целых чисел.выяснить какое число встречается раньше-положительное или отрицательное.
4)в целочисленном массиве есть отрицательные элементы.вывести номера этих элементов
массива
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;
2.определите какие блоки программы присутствуют в тексте. 3.Определите размер массива. 4. Сколько элементов массива обрабатывается.
For i:= 0 to 10 do
A [ i] := i ;
for i := 0 to 10 do
begin
k := A [i];
A [i] : = A[10-i];
k := A[10-i];
end;
каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.