Установить, является ли предложение высказыванием, и если является, истинно оно или ложно. а) Волга впадает в Каспийское море б) 2<4 в) Пустое множество г)
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016 begin var n:=ReadInteger('Количество элементов в массиве: '); var a:=ArrRandom(n,-50,50); a.Println(','); Writeln('Четные элементы: '); var i:=1; while i<n do begin Write(a[i],' '); Inc(i,2) end; Writeln; Writeln('Нечетные элементы: '); i:=0; while i<n-1 do begin Write(a[i],' '); Inc(i,2) end; Writeln end.
Тестовое решение: Количество элементов в массиве: 10 15,-18,-29,-25,46,21,-8,-17,-9,15 Четные элементы: -18 -25 21 -17 15 Нечетные элементы: 15 -29 46 -8 -9
#include <iostream>
using namespace std;
int main()
{
int main[] = {0,1,2,3,4,5,6,7,8,9};
int ch[5], nech[5], n = 0;
for (int i=0;i<10;i+=2)
{
ch[n] = main[i];
n++;
}
n = 0;
for (int i=1;i<10;i+=2)
{
nech[n] = main[i];
n++;
}
for (int i=0;i<5;i++)
{
cout << ch[i] << " ";
}
cout << endl;
for (int i=0;i<5;i++)
{
cout << nech[i] << " ";
}
}
Вывод:0 2 4 6 8
1 3 5 7 9
begin
var n:=ReadInteger('Количество элементов в массиве: ');
var a:=ArrRandom(n,-50,50);
a.Println(',');
Writeln('Четные элементы: ');
var i:=1;
while i<n do begin Write(a[i],' '); Inc(i,2) end;
Writeln;
Writeln('Нечетные элементы: ');
i:=0;
while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
Writeln
end.
Тестовое решение:
Количество элементов в массиве: 10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9