tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Задан одномерный массив
Задан одномерный массив целых чисел. вывести все нечетные элементы массива найти сумму нечетных элементов этого массива. найти количество нечетных элементов массива найти номер наименьшего элемента в массиве
shishovtopking
2 21.09.2019 05:30
1
Ответы
innesa260778
04.08.2020 13:07
// PascalABC.NET 3.3, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(10,-99,99); mas.Println;
var t:=mas.Where(t->t mod 2 <> 0); Write('нечетные элементы ='); t.Println;
Writeln('сумма нечетных элементов =',t.Sum);
Writeln('количество нечетных элементов =',t.Count);
Writeln('номер найменьшего элемента =',mas.IndexMin+1);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nastyakorova664
17.09.2019 15:30
Женя пытается расставить по кругу 10 цифр, используя каждую цифру один раз так, чтобы в любой тройке подряд идущих цифр сумма была одна и та же. а даша сказала жене, что цифры...
круголс
17.09.2019 15:30
Составить блок-схему для поиска суммы цифр в 4-хзначном числе, для поиска 2-хзначного числа палиндрома...
serega228002
17.09.2019 15:30
Var i, n, s: integer; a: array[1..10] of integer; begin writeln( введите колличество чисел (не больше 10) ); read(n); s: =0; randomize; begin for i: =1 to n do a[i]: =random(100);...
krasotka505050
17.09.2019 15:30
Какой минимальный объем памяти нужно зарезервировать чтобы можно было сохранить 512 на 256 в изображении 32 цвета...
7799de
17.09.2019 15:30
Имеется текст ,объемом которого 20 кбайт на какой стр 40 строк по 64символа в строке,1 символ занимает 8 бит .определите кол в стр в тексте...
KaterinYu31
19.12.2019 12:58
Написать программу,которая формирует случайным образом массив из n целых чисел, лежащих в диапазоне от 1 до 5, после чего на экран выводится сам массив и номера элементов с последним...
togrul654
19.12.2019 12:59
pascal abc дан произвольный треугольник abc, для которого определен набор характерных параметров: a, b, c – стороны треугольника; альфа, бетта, гамма - углы треугольника (в градусах);...
Diana15080511
19.12.2019 13:00
Логика и теория алгоритмов, с подробным решением, желательно на листе бумаги...
марина200008
19.12.2019 13:02
Опишите однопреимущество растровой и векторной графике...
Лина14881
01.04.2020 17:49
Задача С «Симметричная матрица» Дана квадратная матрица. Проверить, является ли она симметричной относительно главной диагонали. Входные данные. Записано число n (0 n ≤ 100)....
Популярные вопросы
* 6. Охарактеризуйте, нарисовав ритмическую схему, ритм стихотворения. Как...
1
ээ я не знаю как здесь все работает и что мне писать надо но мне нужна пять...
1
ІВ Відмінності кіммерійців від сусідніх народів....
1
Grammar C. Complete. My best friend, Lisa, lives in (1) very nice house with...
2
Решите очень задание на фото!желательно из решением...
3
12. Look at the picture and fill in the blanks with one of the following prepositions....
1
1.зоны землятрясений в западной части юной америки. 2.Зоны землятрясений в...
3
ЗА ПРАВИЛЬНЫЙ ОТВЕТ. S=640*1/4 см в квадрате +30*1/4*1/2см в квадрате +37*1/4*1/4...
3
Синоним к слову несломленный...
1
Написать сочинение на тему: Как разнообразито повседневную жизнь? Сочинение...
2
// Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(10,-99,99); mas.Println;
var t:=mas.Where(t->t mod 2 <> 0); Write('нечетные элементы ='); t.Println;
Writeln('сумма нечетных элементов =',t.Sum);
Writeln('количество нечетных элементов =',t.Count);
Writeln('номер найменьшего элемента =',mas.IndexMin+1);
end.