Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Анастасия0411
02.09.2020 21:42 •
Информатика
4. Можешь ли ты привести примеры встроенных объектов в других программах, с которыми тебе приходилось работать?
5. Какие преимущества, по-твоему, дает использование встроенных
объектов в программе?
Показать ответ
Ответ:
zincenkoe759
25.09.2020 03:34
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Максимальный четный элемент: ',a.Where(x->x.IsEven).Max);
end.
Пример
n= 15
49 -55 14 3 -29 -18 -23 -54 -82 -68 75 45 86 0 -82
Максимальный четный элемент: 86
begin
var a:=ArrRandom(ReadInteger('n='),-37,66); a.Println;
Writeln('Минимальный нечетный элемент: ',a.Where(x->x.IsOdd).Min);
end.
Пример
n= 13
-8 25 -1 40 52 -6 34 -23 44 -30 -14 -6 33
Минимальный нечетный элемент: -23
0,0
(0 оценок)
Ответ:
Olga75aella
17.03.2022 16:44
Import java.util.*;
import java.lang.*;
import java.io.*;
class Ideone
{
public static void main (String[] args) throws java.lang.Exception
{
Scanner in = new Scanner(System.in);
int[] arr = new int[29];
int s1 = 0, s2 = 0;
for(int i = 0; i < arr.length; i++){
arr[i] = (int)(Math.random() * 3);
if (arr[i] % 2 == 0) {
s1 += arr[i];
}
else if (arr[i] % 2 != 0) {
s2 += arr[i];
}
}
if (s1 == s2) {
System.out.println("Yes");
} else {
System.out.println("No");
}
}
}
0,0
(0 оценок)
Популярные вопросы: Информатика
kr2804ilyagmailcom
06.06.2020 09:31
5. используя символы * и ? запишите шаблон поиска следующей группы файлов и папок: a. все файлы на диске d: b. все файлы на диске а: с названием «word» c. все файлы на диске с: c...
Димасик1111111111
26.09.2022 01:55
Составить программу в pascal 1)в строке , введенной с клавиатуры , все буквы и заменить на % 2)из строки, введенной с клавиатуры , удалить все символы ,начиная с середины....
ринат127
26.09.2022 01:55
Склавиатуры вводится натуральное число n. найдите и выведите самую большую цифру этого числа....
FUKCтическая
26.09.2022 01:55
Найти максимальное из трех неравных чисел и присвоить ему имя max...
Felissia12
24.11.2020 01:44
Нужно решить через паскаль с циклов for или while 1)известно количество пассажиров за каждый месяц. вычислить ср. арифметическое за год 2)известно кол-во очков каждого игрока команды....
PandaVo
24.11.2020 01:44
Дана последовательность чисел 1, 4, 7, 10, 13, считать сумму всех элементов этой последовательности до тех пор пока она не достигнет 1000...
SOV20
15.01.2022 08:29
1. опишите данный пример на языке паскаль. b= a+10a) a+10: bb) b: =a+10c) b: =a+bd) a: =b+102. for…to… do какие операторы? a) условное копированиеb) безусловное копированиеc) условная...
safiya250707
01.01.2020 21:37
Написать функцию, которая удаляет из созданного стека отрицательные элементы. остальной код: #include struct stack { int info; stack * next; } *begin, *t; stack* push(stack*, int);...
shurashishkin1
19.06.2022 12:43
Что означает выражение 56%24? а)целочисленное деление б)остаток,полученный от целочисленного деления...
likamikanumberone
03.07.2022 23:10
Длина, ширина, высота, масса, разгон до 30км/час-велосипед? ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Максимальный четный элемент: ',a.Where(x->x.IsEven).Max);
end.
Пример
n= 15
49 -55 14 3 -29 -18 -23 -54 -82 -68 75 45 86 0 -82
Максимальный четный элемент: 86
begin
var a:=ArrRandom(ReadInteger('n='),-37,66); a.Println;
Writeln('Минимальный нечетный элемент: ',a.Where(x->x.IsOdd).Min);
end.
Пример
n= 13
-8 25 -1 40 52 -6 34 -23 44 -30 -14 -6 33
Минимальный нечетный элемент: -23
import java.lang.*;
import java.io.*;
class Ideone
{
public static void main (String[] args) throws java.lang.Exception
{
Scanner in = new Scanner(System.in);
int[] arr = new int[29];
int s1 = 0, s2 = 0;
for(int i = 0; i < arr.length; i++){
arr[i] = (int)(Math.random() * 3);
if (arr[i] % 2 == 0) {
s1 += arr[i];
}
else if (arr[i] % 2 != 0) {
s2 += arr[i];
}
}
if (s1 == s2) {
System.out.println("Yes");
} else {
System.out.println("No");
}
}
}