По разделам



Задача Series 10


Дано целое число N и набор из N целых чисел. Если в наборе
имеются положительные числа, то вывести TRUE; в противном случае
вывести FALSE.

Код (C/C++)

#include <bits/stdc++.h>
using namespace std;

int main() {
	srand((int)time(0));
	int N = rand() % 10 + 1;
	cout << "N = " << N << endl;
	
	int x;
	string result;
	for(int i = 0; i < N; i++) {
		x = rand() % 100 - 70;
		//cin >> x;
		result = (x > 0) ? "true" : "false";
		cout << x << " : " << result << endl;
		if(x > 0)
			break;
	}
	
	cout << endl;
	cout << "There is a positive number: " << result;
	cout << endl;

	return 0;
}

Код (Python)

import random

N = random.randrange(1,10)
print("N = ",N)
r = False
for i in range(N):
    x = random.randrange(-10,10)
    r = (x>0)
    print(x," : positive - ",r)
    if r:
        break
print("There is a positive number:",r)
									

Код (Pascal)

program Series10;
var
  check:Boolean;
  i,N,R:Integer;
begin
  Write('Введите N: ');
  Readln(N);
  check:=False;
  for i:=1 to N do
   begin
     Write('Введите ',i,' число: ');
     Readln(R);
     if R >0 then  check:=True;
   end;
  Writeln(check);
end.
									




Series. Абрамян
Series 1 Просмотров: 15
Series 2 Просмотров: 9
Series 3 Просмотров: 14
Series 4 Просмотров: 20
Series 5 Просмотров: 13
Series 6 Просмотров: 9
Series 7 Просмотров: 10
Series 8 Просмотров: 9
Series 9 Просмотров: 13
Series 10 Просмотров: 16
Series 11 Просмотров: 11
Series 12 Просмотров: 10
Series 13 Просмотров: 13
Series 14 Просмотров: 10
Series 15 Просмотров: 12
Series 16 Просмотров: 21
Series 17 Просмотров: 20
Series 18 Просмотров: 11
Series 19 Просмотров: 16
Series 20 Просмотров: 8
Series 21 Просмотров: 11
Series 22 Просмотров: 13
Series 23 Просмотров: 17
Series 24 Просмотров: 12
Series 25 Просмотров: 20
Series 26 Просмотров: 12
Series 27 Просмотров: 11
Series 28 Просмотров: 13
Series 29 Просмотров: 8
Series 30 Просмотров: 7
Series 31 Просмотров: 10
Series 32 Просмотров: 8
Series 33 Просмотров: 8
Series 34 Просмотров: 16
Series 35 Просмотров: 12
Series 36 Просмотров: 7
Series 37 Просмотров: 8
Series 38 Просмотров: 13
Series 39 Просмотров: 9
Series 40 Просмотров: 10

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться