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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.12.2020, 11:01   #1
bublik3
Пользователь
 
Регистрация: 10.12.2020
Сообщений: 44
По умолчанию Одномерные массивы

Парни кто шарит по паскалю мне нужно сделать эт задание:
12. Составить схему алгоритма и программу определения количества положительных и отрицательных элементов массива вещественных чисел К={кi}, i=1,t, t- число элементов массива (t⩽120). Вывести на экран найденные значения.
bublik3 вне форума Ответить с цитированием
Старый 18.12.2020, 19:14   #2
kilogram4ik
Пользователь
 
Регистрация: 15.10.2020
Сообщений: 68
По умолчанию

Если я правильно понял задание , то выглядеть будет так (надеюсь поможет)
Код:
var SA:array [1..120] of integer;
k,k1,k2:integer;
begin
write('количество элементов в массиве k=');
readln(k);
writeln('массив');
for var i:=1 to k do
  begin
  SA[i]:=random(20)-10;
  write(SA[i]:4);
  end;
writeln;

for var i:=1 to k do
  if SA[i]>0 then
    inc(k1)
  else
    inc(k2);
 writeln('положительных чисел в массиве: ',k1);  
 write('отрицательных чисел в массиве: ',k2);
end.
kilogram4ik вне форума Ответить с цитированием
Старый 18.12.2020, 22:48   #3
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

kilogram4ik
Цитата:
Если я правильно понял задание , то выглядеть будет так (надеюсь поможет)
Задание поняли, но неправильно.

Сомневаюсь, что поможет ТС, т.к. он не желает включать собственный мозг.
Ему подавай всё готовенькое и даже разжёванное.
Вспоминаю мультик про Вовку в тридевятом царстве.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 19.12.2020, 11:37   #4
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Цитата:
Сообщение от kilogram4ik Посмотреть сообщение
Код:
  if SA[i]>0 then
В таком варианте 0 будет признан отрицательным.
digitalis вне форума Ответить с цитированием
Старый 19.12.2020, 17:46   #5
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

digitalis
Цитата:
В таком варианте 0 будет признан отрицательным.
В том числе надо учесть, что в задании говорится о вещественных, а не целых числах.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 20.12.2020, 21:33   #6
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

На if-ах это не отразится - распознают и отрицательное, и неотрицательное без проблем.

Последний раз редактировалось digitalis; 20.12.2020 в 21:45.
digitalis вне форума Ответить с цитированием
Старый 20.12.2020, 22:09   #7
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

Это вот сюда:
Код:
var SA:array [1..120] of integer;
Размер хранимых данных в два раза меньше, если real 32-x битовые.
Да. На работе программы это не отразится, только условию задания программа не удовлетворяет.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерные массивы CkooTuHa Помощь студентам 3 29.10.2014 16:34
Одномерные массивы, двумерные массивы, строки Sand093 C++ Builder 11 20.05.2012 21:48
Одномерные массивы trnext Помощь студентам 0 15.11.2011 18:21
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент LyaLya Помощь студентам 15 20.12.2009 14:12
Одномерные массивы hohol90 Помощь студентам 4 30.11.2009 17:12