Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
OSTROVSKAYA100
23.03.2022 09:16 •
Информатика
Напишите программу печатающую номера элементов массива больших 30 (паскаль)
👇
Увидеть ответ
Ответ:
KostyaBit
23.03.2022
Program example;
var arr: array[1..50] of Integer;
i: Integer;
begin
randomize;
for i:=1 to 50 do
arr[i]:= random (100);
for i:= 1 to 50 do
begin
if arr[i] > 30 then
writeln ('Array[', i, '] = ', arr[i]);
end;
end.
4,5
(80 оценок)
Открыть все ответы
Ответ:
vsalchenkoovhi36
23.03.2022
Class ArrayEven{
public static void main(String args[]){
java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
while((eArray[eArray.length-1] = in.nextLong())!=-1){
long nArray[] = new long[eArray.length+1];
for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
eArray = nArray;
} eArrayCell:
for(int cCell = 0; cCell<eArray.length-1; cCell++){
if(eArray[cCell]%2==1)continue;
else for(int eCell = cCell+1; eCell<eArray.length-1; eCell++)
if(eArray[eCell]%2==1){
eArray[eArray.length-1]=eArray[cCell];
eArray[cCell]=eArray[eCell];
eArray[eCell]=eArray[eArray.length-1];
continue eArrayCell;
}
break;
}
for(int cCell = 0; cCell<eArray.length-1; cCell++)System.out.print(eArray[cCell]+" ");
}
}
4,5
(13 оценок)
Ответ:
аааааааааппппппааааа
23.03.2022
Class ArrayEven{
public static void main(String args[]){
java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
while((eArray[eArray.length-1] = in.nextLong())!=-1){
long nArray[] = new long[eArray.length+1];
for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
eArray = nArray;
} eArrayCell:
for(int cCell = 0; cCell<eArray.length-1; cCell++){
if(eArray[cCell]%2==0)continue;
else for(int eCell = cCell+1; eCell<eArray.length-1; eCell++)
if(eArray[eCell]%2==0){
eArray[eArray.length-1]=eArray[cCell];
eArray[cCell]=eArray[eCell];
eArray[eCell]=eArray[eArray.length-1];
continue eArrayCell;
}
break;
}
for(int cCell = 0; cCell<eArray.length-1; cCell++)System.out.print(eArray[cCell]+" ");
}
}
4,5
(74 оценок)
Это интересно:
02.01.2020
Как стать серьезным: 10 советов от успешных людей...
К
Компьютеры-и-электроника
25.10.2022
Как словить покемона Кресселию...
З
Здоровье
22.01.2023
Как сделать мешочек с кукурузой: всё, что нужно знать...
П
Питомцы-и-животные
21.04.2022
Как выращивать кроликов ради мяса или шерсти...
Х
Хобби-и-рукоделие
07.07.2021
Как сделать светящуюся палочку: пошаговая инструкция...
Д
Дом-и-сад
03.02.2020
Как быстро и эффективно избавиться от шоколадных пятен...
И
Искусство-и-развлечения
20.08.2020
Школа дома: как не потеряться и организоваться...
О
Образование-и-коммуникации
12.06.2021
Как составить план: секреты планирования на будущее...
К
Компьютеры-и-электроника
20.11.2020
Как создать простую таблицу стилей CSS с помощью Notepad...
К
Компьютеры-и-электроника
09.07.2020
Как уничтожить жесткий диск: советы и рекомендации...
Новые ответы от MOGZ: Информатика
КеламадинНазгуль
04.08.2020
Ввести с клавиатуры два числа и вывести на экран минимальное...
Кипарисный
09.06.2020
1) определите вид информационного процесса в примере : заключение о том ,твердый или мягкий предмет ,взяв его в руку выберите один ответ: обработка. передача. хранение. поиск. 2)...
maksgolovakha228
20.05.2022
Когда ваня, даша и коля спросили, какие им поставили оценки за работу на уроке биологии, учитель ответил: «попробуйте догадаться сами, если я скажу, что в вашем классе «двоек» нет,...
Масяня878
20.05.2022
Используя знаки ариф. действий и если надо скобки записать числа 8 и 10 с 4 троек...
BigAwto
20.05.2022
Составить программу, которая формирует массив из шестнадцати случайных целых чисел от -20 до 20 и выводит на экран в одну строчку исходный массив, а во вторую строчку все элементы...
marinazajcik0
01.11.2021
Уплемени чичевоков в алфавите 24 буквы и 8 цифр и пробел. знаков препинания и арифметических знаков нет. какое минимальное количество двоичных разрядов им необходимо для кодирования...
Criss666
16.03.2023
(вариантов ответа нет) Объясните как делать✨ ...
игоревич159753
15.01.2023
Вводятся 5 чисел: a, b, c, d и e. найдите все целые решения уравнения ( ax3 + bx2 + cx + d ) / ( x - e ) = 0 на отрезке [0,1000] и выведите их количество. примеры входные данные...
Temir338
29.06.2021
Как связаны понятия авторское право и плагиат?...
1Маша1231111
22.07.2020
СОСТАВЬТЕ АЛГОРИТМ, КОГДА КУЗНЕЧИК ОКАЖЕТСЯ В ЦИФРЕ 2 , 3, 4, 5 (ПРОПИШИТЕ АЛГОРИТМ ПО ОТДЕЛЬНОСТИ...
MOGZ ответил
Перед соревнаванием по плаванию бассейн за 15минут заполнили свежей водой. сколько...
Луна притягивается к земле с силой f=2x10 в 20 степени hьютонов.определите массу...
Могут ли обходится без цитоскелета растительная и животная клетка. почему?...
Через точки а и в и середину м отрезка ав проведены параллельные прямые, пресекающие...
Нужно! много пунктов ) put each of the following words or phrases into its correct...
Напишите уравнения осуществимых реакциймежду: 1. нитратом алюминия и фосфатом...
Первая цифра трёхзначного числа 8.если эту цифру переставить в конец,то оно увеличится...
Каково современное понимание прав человека ? (кратко)...
Решить. в ряду чисел от 50 до 100 выберите и запишите те,в которых число десятков...
В200г воды расстворили 50г хлорида натрия.вычеслите массовую долю nacl в полученном...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
var arr: array[1..50] of Integer;
i: Integer;
begin
randomize;
for i:=1 to 50 do
arr[i]:= random (100);
for i:= 1 to 50 do
begin
if arr[i] > 30 then
writeln ('Array[', i, '] = ', arr[i]);
end;
end.