Посчитать количество положительных и отрицательных чисел в массиве

@RazZ · Регистрация: 17.12.2009

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

Помагите записать 3 задачки в Pascal, если вам не сложно, то с коментариями пожалуйсто. Заранее благодарен.

#1 Организовать процесс угадывания числа: компьютер генерирует случайное число (1…1000), пользователь пытается его угадать за фиксированное число попыток (10). Компьютер должен выводить ответ на каждое число пользователя, говорящий, с какой стороны (большей или меньшей) было названо число. В случае, если пользователь угадал за отведенное число попыток, выйти из процесса угадывания.
#2 В линейном целочисленном массиве посчитать количество положительных и отрицательных чисел в массиве.
#3 Дан набор из N целочисленных элементов. Найти количество элементов, расположенных после первого максимального.

@WolfCF · 18.12.2009, 04:27

2

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const n=20;
var a:array[1..n] of integer; 
      i,k,p:integer;
 begin
  ClrScr;
  Writeln('Введите массив');
   for i:=1 to n do
   begin
    Write('a[',i,']: ');
    Readln(a[i]);
   end;
  for i:=1 to n do
   begin
   if a[i]>0 then
    k:=k+1;
   if a[i]<0 then
    p:=p+1;
   end;
 Writeln('Колличество положительных ',k);
 Writeln('Колличество отрицательных ',p);
Readln;
end.

@aztec133 · 18.12.2009, 06:38

1. вроде так

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var k,n,i:integer;
begin
randomize;
k:=random(999)+1;
for i:=1 to 10 do begin
writeln('введите число');
read(n);
if k=n then begin
write('вы угадали'); break;
end;
end;
if k<>n then writeln('попытки исчерпаны');
end.

@RazZ · 20.12.2009, 16:44 **[ТС]**

Спасибо за ответы, если можете еще 1 напишите плиз

Дано вещественное число A и целое число N > 0. Вывести 1 + A + A^2 + A^3 + ... + A^N

@aztec133 · 21.12.2009, 12:16

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,s,h:real; i,n:integer;
begin
read(a,n);
s:=1;
h:=a;
for i:=1 to n do begin
s:=s+a;
a:=a*h;
end;
write(s:3:2);
end.

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@RazZ 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 4

	Посчитать количество положительных и отрицательных чисел в массиве 17.12.2009, 21:17. Показов 13898. Ответов 4 Метки нет (Все метки) Помагите записать 3 задачки в Pascal, если вам не сложно, то с коментариями пожалуйсто. Заранее благодарен. #1 Организовать процесс угадывания числа: компьютер генерирует случайное число (1…1000), пользователь пытается его угадать за фиксированное число попыток (10). Компьютер должен выводить ответ на каждое число пользователя, говорящий, с какой стороны (большей или меньшей) было названо число. В случае, если пользователь угадал за отведенное число попыток, выйти из процесса угадывания. #2 В линейном целочисленном массиве посчитать количество положительных и отрицательных чисел в массиве. #3 Дан набор из N целочисленных элементов. Найти количество элементов, расположенных после первого максимального. 0

@RazZ 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 4
	20.12.2009, 16:44 [ТС]
	Спасибо за ответы, если можете еще 1 напишите плиз Дано вещественное число A и целое число N > 0. Вывести 1 + A + A^2 + A^3 + ... + A^N 0