#include <iostream>
#include <time.h>
using namespace std;
int main()
{
srand(time(NULL));
int N[100];
int sum = 0;
for(int i=0;i<100;i++){
N[i] =rand();
}
cout << "vse elementu" << endl;
for(int i=0;i<100;i++)
cout << N[i] << " ";
cout << endl;
cout << "nechetnue elementu" << endl;
for(int i=0;i<100;i++){
if(N[i]%2!=0)
sum = sum + N[i];
cout << N[i] << " ";
}
cout << endl;
cout<< "suma nechetnuh = " << sum << endl;
system("pause");
return 0;
}
Объяснение:
Написал программу так, что-бы сначала выводило 100 элементов(рандом чисел), потом выводило нечетные элементы, потом выведет уже суму нечетных
Объяснение:
Pascal
program pr;
var
i, n, k, cout: integer;
a, b: array [1..100] of integer;
begin
cout := 0;
k := 1;
writeln('Введите размер массива');
readln(n);
if (n>0) and (n<=10000) then
begin
for i := 1 to n do
begin
read(a[i]);
end;
writeln;
for i := 1 to n do
if a[i] < 0 then
begin
cout := cout + 1;
b[k] := a[i];
k := k + 1;
end;
if cout = 0 then
writeln(0) else
for k := 1 to cout do
write(b[k]:3);
end
else writeln('Не корректный ввод n');
end.
INTEGER I,J,K
LOGICAL FLAG
INTEGER A,B
DIMENSION A(5,10)
DIMENSION B(50)
EQUIVALENCE (A,B)
READ *,(B(I),I=1,50)
DO 70 I=1,5
PRINT *,(A(I,J),J=1,10)
70 CONTINUE
DO 100 J=10,1,-1
FLAG=.TRUE.
K=J
DO 200 I=1,5
IF (A(I,J) .LE. 0) THEN
FLAG=.FALSE.
GOTO 100
END IF
200 CONTINUE
IF (FLAG) GOTO 300
100 CONTINUE
300 PRINT *,'k=',K
END PROGRAM MAIN