с информатикой. Надо составить код программы для C++ Заполните одномерный массив шестнадцатью целыми значениями, вводимыми с клавиатуры. Определите, является ли элемент массива с номером k чётным числом. Выведите на экран сообщение об этом.
1. var x : array[1..1000] of integer; n,i,max,min : integer; begin write('n = '); readln(n); writeln('Исходный массив:'); for i:=1 to n do begin write('x[',i,']='); readln(x[i]); end; writeln; max:=x[1]; min:=x[1]; for i:=2 to n do begin if x[i] > max then max:=x[i]; if x[i] < min then min:=x[i]; end; writeln('max=',max,' min=',min); writeln('Среднее = ',(max+min)/2:5:2); end.
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin var L:=ReadSeqInteger('Введите через пробел три цифры',3).ToList; if L.All(x->x=0) then Writeln('Хотя бы одна цифра должна отличаться от нуля') else if L.All(x->x.IsOdd) then Writeln('Хотя бы одна цифра должна быть четной') else begin var d3:=L.Where(x->x.IsEven).Min; L.RemoveAt(L.FindIndex(x->x=d3)); var s:=L.OrderBy(x->x); Writeln(s.Last,s.First,d3) end end.
Примеры: Введите через пробел три цифры 2 0 5 520
Введите через пробел три цифры 0 5 0 500
Введите через пробел три цифры 3 9 5 Хотя бы одна цифра должна быть четной
#include <iostream>
int main()
{
int A[16];
int i, k;
// Русский язык в консоли
setlocale(LC_ALL, "Russian");
for (i = 0; i < 16; i++)
{
std::cout << "Введите число " << i + 1 << ": ";
std::cin >> A[i];
}
std::cout << "Введите номер элемента массива k: "<< std::endl;
std::cin >> k;
if (A[k-1]%2==0) std::cout << "Элемента массива с номером " << k << " четный." << std::endl;
else std::cout << "Элемента массива с номером " << k << " нечетный." << std::endl;
return 0;
}