Дан массив А(N). Определить количество нечетных и отрицательных элементов массива. Изменить знак у элементов. Вывести исходный и преобразованный массив и
10-11 класс
|
количество элементов.
uses SysUtils,Windows;
var a:array of Integer; i,n,s,o:Integer;
begin
o:=0;
s:=0;
SetConsoleOutputCP(1251);
Randomize;
write('Введите "N": ');
readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
begin
a[i]:=Random(10)-5;
write(a[i]:3);
end;
Writeln;
Writeln;
for i:=0 to Length(a) do
begin
if a[i] mod 2=1 then
Inc(s);
if a[i]<0 then
Inc(o);
a[i]:=a[i]*(-1);
end;
Writeln('Кол-во отрицательных элементов: ',o);
Writeln('Кол-во нечетных элементов: ',s);
Writeln;
for i:=0 to Length(a) do
write(a[i]:3);
readln;
end.
Другие вопросы из категории
Необходимо подсчитать количество ошибок сделанных в записи
тэгов.
Читайте также
D(N) определить количество элементов, значение которых больше 100.
Дан массив O ( K ). Заменить все положительные числа квадратом числа,а отрицательные модулем.
Задача вторая.
Дан массив R ( 6 ) .Найти сумму и произведение всех элементов массивов.
Через Qbasic
ОТ CLS ДО ЕND
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
элементы, а из массива В -нечетные по значению.Выведите на экран массивы А,В,С.
2.Информация о площадях и средней урожайности хранится в массиве,где каждый элемент с четным индексом - засеянная площадь, а с нечетным - урожайность.Определите и выведите на экран кол-во собранной пшеницы и среднюю урожайность.
Помогите пожалуйста!