Задан линейный массив .Преобразовать его элементы по следующему правилу : Четные положительные элементы заменить на 1 , а нечетные отрицательные на -1
5-9 класс
|
.Остальные оставить без изменения
program asd;
Const n=10;
var A:array[1..n] of integer;
i:integer;
BEGIN
Randomize;
For i:=1 to n do
begin
A[i]:=1+Random(10)-4;
Write(A[i],' ');
end;
Writeln;
For i:=1 to n do
begin
If (A[i] mod 2=0) and (A[i]>0) then
begin
A[i]:=1;
Write(A[i],' ');
end
else
If (A[i] mod 3=0) and (A[i]<0) then
begin
A[i]:=-1;
Write(A[i],' ');
end
else
Write(A[i],' ');
end;
END.
Другие вопросы из категории
информационный объём всего словаря ( в байтах)
3.информационный объём словаря (в килобайтах)
4.информационный объём всего словаря (в мегабайтах)
Читайте также
1-й равен значению текущего индекса, увеличенному на 3; 2-й равен квадрату предыдущего индекса; 3-й равен сумме двух предыдущих элементов. 2 Задание : сформируйте массив, содержащий 15 элементов ,с помощью датчику случайных чисел. Получите новый массив,каждый элемент которого равен сумме соответствующего элемента исходного массива и его индекса. В полученном массиве удвойте элементы,которые меньше заданного с клавиатуры числа А,и найдите их сумму . Выведите на экран исходные и полученные результаты .
Написать программу, заполняющую массив из 10 элементов по следующему правилу: А(i) = (2*i – 1)/cos(i)
следующему правилу: четное число умножает на 5 ,а от нечетного отнимает 2.
«AB».
Каждая из последующих цепочек создается такими действиями: в начало записывается буква, следующая по алфавиту, далее записывается предыдущая строка и она же в обратном порядке символов (справа налево).
Вот первые 4 строки, созданные по этому правилу:
(1) AB
(2) BABBA
(3) CBABBAABBAB
(4) DCBABBAABBABBABBAABBABC
Сколько раз буква А встречается в 8-ой строке?
– на третьем месте цепочки стоит одна из бусин A, E;
– на втором месте – одна из бусин H, E, D, которой нет на третьем месте;
– в начале стоит одна из бусин H, A, C, которой нет на втором месте;
– в конце – одна из бусин H, E, D, не стоящая на первом месте.
Определите, сколько из перечисленных цепочек созданы по этому правилу?
HDEE HHAE HEAE AHAH AEAD AEED CAEH EHAD CDEAВ
с решением, пожалуйста