Решить в паскале
Задача 1
Дан массив, содержащий неотрицательные целые числа, не превышающие 10 000. В массиве присутствуют чётные и нечётные числа. Необходимо вывести:
— минимальный чётный элемент, если количество чётных элементов не больше, чем нечётных;
— минимальный нечётный элемент, если количество нечётных элементов меньше, чем чётных.
Например, для массива из шести элементов, равных соответственно 4, 6, 12, 17, 9, 8, ответом будет 9 — наименьшее нечётное число, поскольку нечётных чисел в этом массиве меньше.
Напишите на одном из языков программирования программу для решения этой задачи. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных.
Паскаль
const N=2000;
var a: array [1..N] of integer;
i, j, k, m: integer;
begin
for i:=1 to N do readln(a[i]);
…
end.
Задача 2
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -20 до 20 − сведения о температуре за каждый день ноября. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит максимальную температуру среди дней, когда были заморозки (то есть температура опускалась ниже нуля). Гарантируется, что хотя бы в один день ноября была отрицательная температура.
Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать части из них.
Паскаль
const N=30;
var a: array[1..N] of integer;
i, j, max: integer;
begin
for i:=l to N do readln(a[i]);
...
end
Вы должны это знать:
· При регистрации на сайтах, старайтесь не указывать личную информацию, т.к. она может быть доступна незнакомым людям. Так же, не рекомендуется размещать свою фотографию, давая, тем самым, представление о том, как вы выглядите, посторонним людям.
· Используйте веб-камеру только при общении с друзьями. Проследите, чтобы посторонние люди не имели возможности видеть ваш разговор, т.к. он может быть записан.
· Нежелательные письма от незнакомых людей называются «Спам». Если вы получили такое письмо, не отвечайте на него. В случае, если Вы ответите на подобное письмо, отправитель будет знать, что вы пользуетесь своим электронным почтовым ящиком и будет продолжать посылась вам спам.
· Если вам пришло сообщение с незнакомого адреса, его лучше не открывать. Подобные письма могут содержать вирусы.
· Если вам приходят письма с неприятным и оскорбляющим вас содержанием, если кто-то ведет себя в вашем отношении неподобающим образом, сообщите об этом
· Если вас кто-то расстроил или обидел, расскажите все взрослому.
Объяснение:
1.
#include <iostream>
int main()
{
using namespace std;
setlocale(LC_ALL, "ru");
const int SIZE = 16;
int arr[SIZE];
int count = 0;
cout << "Введите 16 целых чисел: " << endl;
for (int i = 0; i < SIZE; i++)
{
cin >> arr[i];
if (!(arr[i] % 3))
{
arr[i] = 0;
count++;
}
}
cout << "Результат: " << endl;
for (int i = 0; i < SIZE; i++)
cout << arr[i] << '\t';
cout << "\nКол-во замен: " << count << endl;
return 0;
}