В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50

@tcdhbhh · Регистрация: 06.12.2013

Author24 — интернет-сервис помощи студентам

В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50. Вывести массив, сами числа и их количество. Если таких не было, то сообщение "таких не было".

@Svager · 12.12.2013, 22:02

Pascal

uses crt;
const n=10;
var a,b:array[1..n] of integer;
i,j,k,min:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
 a[i]:=random(200)-40;
 
 for i:=1 to n do
  write(a[i]:4);
   writeln;
 
   j:=1;k:=0;
   for i:=1 to n do
   begin
    if (a[i]>0) and (a[i] mod 2<>0 ) and (a[i]>50) then
    begin
     b[j]:=a[i];
     inc(j);
     inc(k);
     end;
   end;
    writeln;
 
    if k=0 then
     write('НЕТУ  ')
      else
       writeln('Количество = ',k) ;
       writeln;
        for i:=1 to j-1 do
          write(b[i]:4);
 
 
readkey;
 
END.

@tcdhbhh · 13.12.2013, 00:57 **[ТС]**

Огромное спасибо)))

@tcdhbhh 0 / 0 / 0 Регистрация: 06.12.2013 Сообщений: 35
		1
	В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50 12.12.2013, 21:31. Показов 2077. Ответов 2 Метки нет (Все метки) В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50. Вывести массив, сами числа и их количество. Если таких не было, то сообщение "таких не было". 0

@tcdhbhh 0 / 0 / 0 Регистрация: 06.12.2013 Сообщений: 35
	13.12.2013, 00:57 [ТС]	3
	Огромное спасибо))) 0

В массиве целых чисел подсчитать количество нечётных положительных чисел, больших 50

Решение