СОСТАВТЕ ПРОГРАММУ ВВОДА МАССИВА ЦЕЛЫХ ЧИСЕЛ а[1..10] И ВЫВОДА НА ЭКРАН ЭЛЕМЕНТОВ МАССИВА С НЕЧЕТНЫМИ ЗНАЧЕНИЯМИ
Answers & Comments
Mishka28Pascal: var a:array [1..10] of integer; i:integer; begin for i:=1 to n do begin write ('A[',i,'] = '); readln (a[i]); end; for i:=1 to 10 do if a[i] mod 2 = 1 then write (a[i],' '); end.
C++: #include <iostream> using namespace std;
int main() { int a[10]; for (int i = 0; i<10; i++) { cout <<"A[" <<i <<"] = '"; cin >>a[i]; } for (int i = 0; i<10; i++) if (a[i]%2==1) cout <<a[i] <<" "; return 0; }
Answers & Comments
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
for i:=1 to 10 do
if a[i] mod 2 = 1 then write (a[i],' ');
end.
C++:
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = '";
cin >>a[i];
}
for (int i = 0; i<10; i++)
if (a[i]%2==1)
cout <<a[i] <<" ";
return 0;
}