Дан массив А(N) . Сформировать новый массив D(N) путем умножения отрицательных элементов массива A(N) на 25, а положительных на - 7. D новом массиве
10-11 класс
|
D(N) определить количество элементов, значение которых больше 100.
for i:=0 to N do
begin
if a{i] < 0 then
d[i]:=a[i]*25;
else
d[i]:=a[i]*7;
if abs(d[i]) > 100) then
inc(k);
end;
Вот кусок программы, вопросы задавай, если что.
const
N=5;
var
i,k: integer;
a,d: array [1..N] of integer;
begin
for i:=1 to N do
begin
write('a[',i,']= ');readln(a[i]);
end;
for i:=1 to N do
begin
if a[i] < 0 then
d[i]:=a[i]*25
else
d[i]:=a[i]*7;
if abs(d[i]) > 100 then
inc(k);
end;
write(k);
end.
Другие вопросы из категории
объем памяти (в байтах) потребуется для хранения страницы русского текста из 10
строк по 50 символов в строке.
Читайте также
Дана матрица А (4, 5)
2, 3, -5, -10, 7
4, -10, -3, 2, 4
5, -2, -7, 11, -13
18, 19, -2, -4, -7
Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль).
НАПИСАТЬ ПРОГРАММУ в VBA excel и скинуть сюда документом
Дана матрица А (4, 5)
2, 3, -5, -10, 7
4, -10, -3, 2, 4
5, -2, -7, 11, -13
18, 19, -2, -4, -7
Из нее образовать две матрицы: в одной оставить все отрицательные элементы матрицы А (на месте положительных элементов поставить ноль), в другой оставить все положительные элементы (на месте отрицательных поставить ноль).
НАПИСАТЬ ПРОГРАММУ в VBA excel
распечатать.срочно надо помогите пожалуйста
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .