Премини към съдържанието
Метин

Pascal - 2 масива - изведете нечетните числа

Препоръчан отговор


Имам следната задача - да направя програма с 2 масива А(М) и B(N), която да извежда всички въведени нечетни числа. Правилна ли е програмата?

 

 

program volensiderov;var A(M)[1..5]of Integer;B(N)[1..3]of Integer;M, N:Integer;beginwrite('N=);readln(N);write('M=');readln(M);for i:=1 to N do beginwrite('A[',N,]=',A[M]);readln; end;for i:=1 to M do beginwrite('B[',N,']=',B[N]);readln; end;for i:=1 to M do beginif A[M] 3mod2=1 then write('chisloto e nechetno');readln;if B[N] 3mod2=1 then write('chisloto e nechetno');readln;End.

Сподели този отговор


Линк към този отговор
Сподели в други сайтове

Регистрирайте се или влезете в профила си за да коментирате

Трябва да имате регистрация за да може да коментирате това

Регистрирайте се

Създайте нова регистрация в нашия форум. Лесно е!

Нова регистрация

Вход

Имате регистрация? Влезте от тук.

Вход

×

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите условия за ползване.