// 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
const nx = 20; var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; i, j, k,n,r,t: integer; begin Writeln('Введите размер матрицы n');Read(n); for i := 1 to n do begin for j := 1 to n do begin Read(k);x[i, j] := k; end;end; Writeln('Исходный массив'); for i := 1 to n do begin for j := 1 to n do begin Write(x[i, j]:4); if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end; end; Writeln; end; Writeln;Writeln('Одномерный массив'); for j := 1 to t do Write(z[j]:4); end.
Объяснение:
1) #include <iostream>
using namespace std;
int main(){
int f;
cin >> f;
if(f == 1)
cout << "Мизинец";
else if(f == 2)
cout << "Безымянный";
else if(f == 3)
cout << "Средний";
else if(f == 4)
cout << "Указательный";
else if(f == 5)
cout << "Большой";
if(f == 10)
cout << "Мизинец";
else if(f == 9)
cout << "Безымянный";
else if(f == 8)
cout << "Средний";
else if(f == 7)
cout << "Указательный";
else if(f == 6)
cout << "Большой";
else if(f > 10)
cout << "Такого нет";
}
2)
#include <iostream>
using namespace std;
int main(){
int x1,x2,s;
cin >> x1 >> x2;
if(x1 * x2 == s)
cout << "Верно"
else
cout << "Неверно"
}
3)
#include <iostream>
using namespace std;
int main(){
bool x = false;
int year;
cin >> year;
if(year % 4 == 0)
cout << "Високосный";
else if(year % 100 == 0){
if(year % 400 = 0)
cout << "Високосный";
else
cout << "Обычный";
else << "Обычный"
}
}