Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ДарийНикчёмный1
06.06.2020 16:21 •
Информатика
Перевод математических выражений на язык паскаль (2*y+(2/x^2))^x
Показать ответ
Ответ:
DashaK24
09.03.2023 23:40
// 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 оценок)
Ответ:
варкатоп
16.06.2022 12:36
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 оценок)
Популярные вопросы: Информатика
FLASHSAVITAR
04.12.2020 15:07
Есть ли тот, кто знает, как решить задачу z6-5.maz на Robowin?...
blaccyee0666
29.07.2021 21:23
. Aвтомобіль подолав відстань S кілометрів за t годин. Визначити, чи не порушив водій правила дорожнього руху, якщо дозволена швидкість до 60 км/год....
skuryan
24.04.2020 19:46
Напишите программу. 1). дан радиус шара. найти его объём. 2). даны стороны треугольника: a,b,c. вычислить косинусы углов по теореме косинусов. 3). опредедить, сколько полных...
emalets20042
24.04.2020 19:46
Какое значение будет принимать переменная у после выполнения программы: var x, y: integer; begin y: =1 ; x: =15 repeat y: =y*x; x: =x-3 until x 5; writeln ( y= ,y); end x y y=y*x...
strukserzh
24.04.2020 19:46
❤сканируется цветное изображение размером 10 х 15 см. разрешающая сканера - 600 х 600 dpi, глубина цвета - 3 байта. какой информационный объём будет иметь полученный графический...
kseniya279
08.11.2022 01:18
Укажи тип диаграммы, которая имеет две оси значений: горизонтальную (x) и вертикальную (y). Точки данных в такой диаграмме формируются на пересечении значений x и y *...
лиза1585
17.06.2020 03:03
сообщение по теме Зачем компьютеру программное обеспечение и какие компьютерные программы я использую в своей жизни ...
leyla210
08.04.2020 10:04
Это информатика! тема: решение с условием. даны 3 числа. уменьшить на 2 те из них, которые четные. остальные оставить без изменения....
svetacok
12.08.2022 02:38
Что такое лексикографический порядок...
kabulbekova01
12.08.2022 02:38
1) в программе описан одномерный целочисленный массив с индексами от 0 до 10 и целочисленные переменные k, i. в ниже фрагменте программы массив сначала заполняется, а потом изменяется:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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");
}
}
}