сервис вопросов и ответовДаны натуральное число n и последовательность целых чисел а1, а2,…,аn..Все
10-11 класс|
|
положительные элементы уменьшить в 2 раза. Составить блок-схему алгоритма, написать программу
Galaxy565656
17 июля 2014 г., 20:55:33 (9 лет назад)
Valentinaholod
17 июля 2014 г., 21:56:28 (9 лет назад)
var a:array [1..1000] of real;
i,n:integer;
begin
readln(n);
for i:=1 to n do
if a[i]>0 then a[i]:=a[i]/2;
for i:=1 to n do
writeln(a[i]);
end.
Bykovaad
18 июля 2014 г., 0:21:56 (9 лет назад)
Program svwnx90f;
uses crt;
const n = 100;
var
A:array [1..n] of real;
i,j:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
Randomize;
{ввод чисел}
for i:=0 to 9 do
for j:=1 to 10 do
begin
A[i*10+j]:= Random(101)-50;
write(A[i*10+j]:7:1,' ');
end;
writeln;
writeln('Положительные элементы уменьшаются в 2 раза... ');
writeln('Результат:');
for i:=0 to 9 do
begin
for j:=1 to 10 do
begin
if A[i*10+j]>0 then A[i*10+j]:= A[i*10+j]/2;
write(A[i*10+j]:7:1,' ');
end;
end;
end.
Ответить
Другие вопросы из категории
Для хранения растрового изображения размером 64 на 64 пикселя отвел 512 байтов
памяти. Каково максимально возможное число цветов в палитре изображения?
Дано четырёхзначное число, определить:
1. Входит ли в него цифра 4.
я включив комп'ютер та почав грати у свою улюблену гру, швидко рухаючи . Отримавши рекордний результат, я ввів з. своє ім'я та роздрукував на. список
рекордсменів. Потім набрав на. невеличку розповідь про відпочинок влітку, переписав з. фотографіі, додав іх до тексту розповіді та переглянув на.
Читайте также
Даны натуральное число n и последовательность целых чисел а1, а2,…,аn.. Определить количество тех членов последовательности, которые нечетны . Найти
сумму членов последовательности, кратных 11. Составить блок-схему алгоритма, написать программу.
Даны натуральное число n и последовательность целых чисел а1, а2,…,аn. Найти количество и сумму тех членов последовательности, которые делятся на 5 и
не делятся на 3. Составить блок-схему алгоритма, написать программу
Даны натуральное число n и последовательность целых чисел а1, а2, … аn. Из наибольшего элемента извлечь квадратный корень. Составить блок-схему
алгоритма, написать программу.
Ребят, помогите пожалуйста объяснить задачи!!!
В целочисленной
последовательности есть нулевые элементы. Создать массив из номеров этих
элементов.
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;
Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
Вы находитесь на странице вопроса "Даны натуральное число n и последовательность целых чисел а1, а2,…,аn..Все", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.