Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.01.2013, 17:47   #1
NOVI4OkK
Новичок
Джуниор
 
Регистрация: 09.01.2013
Сообщений: 3
По умолчанию можете помочь решить массив

дан массив целых чисел, состоящий из 30 элементов. заполнить его случайными числами. найти количество тех элементов, значения которых положительны и не превосходят заданного числа А.
NOVI4OkK вне форума
Старый 09.01.2013, 18:11   #2
vokar97
Пользователь
 
Аватар для vokar97
 
Регистрация: 23.10.2012
Сообщений: 27
По умолчанию

Код:
var mas : array[1..30] of Integer;
    A, n, i : integer;
begin
     n:=0;
     Write('A = '); Readln(A);
     for i:=1 to 30 do mas[i]:=Random(100)-50;
     for i:=1 to 30 do
          if (mas[i]>0) and (mas[i]<A) then n:=n+1;
     Write('Êîë-âî ýëåìåíòîâ áîëüøå 0: ', n); Readln
end.
UPD: Хоть задача и простейшая, но на C++ не смогу. Прости :P

Последний раз редактировалось vokar97; 09.01.2013 в 18:59.
vokar97 вне форума
Старый 09.01.2013, 18:55   #3
NOVI4OkK
Новичок
Джуниор
 
Регистрация: 09.01.2013
Сообщений: 3
По умолчанию

Цитата:
Сообщение от vokar97 Посмотреть сообщение
Код:
var mas : array[1..30] of Integer;
    A, n, i : integer;
begin
     n:=0;
     Write('A = '); Readln(A);
     for i:=1 to 30 do mas[i]:=Random(100)-50;
     for i:=1 to 30 do
          if (mas[i]>0) and (mas[i]<A) then n:=n+1;
     Write('Êîë-âî ýëåìåíòîâ áîëüøå 0: ', n); Readln
end.
Спасибо но это на паскале а можешь на С++ сделать???
NOVI4OkK вне форума
Старый 09.01.2013, 20:52   #4
Vacsus
 
Регистрация: 07.01.2013
Сообщений: 5
По умолчанию

Код:
#include <iostream>
#include <conio.h>
#include <ctime>
int main()
{
	srand((unsigned int)time(NULL));
	int a;
	std::cin >> a;
	const int size = 30;
	int arr[size];
	int count = 0;
	for (int i = 0; i < size; i++)
	{
		arr[i] = rand() % 200 - 100;
		std::cout << arr[i] << " ";
		if ((arr[i] > 0) && (arr[i] < a))
			count++;
	}
	std::cout << "\n\n" << count;
	
	_getch();
	return 0;
}
Vacsus вне форума
Старый 09.01.2013, 21:31   #5
NOVI4OkK
Новичок
Джуниор
 
Регистрация: 09.01.2013
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Vacsus Посмотреть сообщение
Код:
#include <iostream>
#include <conio.h>
#include <ctime>
int main()
{
	srand((unsigned int)time(NULL));
	int a;
	std::cin >> a;
	const int size = 30;
	int arr[size];
	int count = 0;
	for (int i = 0; i < size; i++)
	{
		arr[i] = rand() % 200 - 100;
		std::cout << arr[i] << " ";
		if ((arr[i] > 0) && (arr[i] < a))
			count++;
	}
	std::cout << "\n\n" << count;
	
	_getch();
	return 0;
}
Спасибо большое
NOVI4OkK вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
можете помочь bodi4ka Фриланс 1 16.10.2011 15:27
можете помочь bodi4ka Visual C++ 0 09.10.2011 16:05
можете помочь ? xxxNeXxxx Помощь студентам 1 03.01.2010 21:02
можете помочь с выполнением лабораторной? Kristy Общие вопросы по Java, Java SE, Kotlin 0 15.05.2008 20:46
Можете помочь с задачкой? Fitness Паскаль, Turbo Pascal, PascalABC.NET 2 26.12.2007 17:46