Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 27.10.2021
Сообщений: 33

Разработка алгоритмов с одномерными массивами

20.11.2021, 16:58. Показов 695. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно отладить программу по алгоритму в скриншоте, скриншот прикрепил к теме!
Буду благодарен за помощь!
Миниатюры
Разработка алгоритмов с одномерными массивами  
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
20.11.2021, 16:58
Ответы с готовыми решениями:

Координаты десяти точек плоскости заданы двумя одномерными массивами X (абсциссы) и Y (ординаты)
1. Сформировать одномерный массив Z по правилу: Z принимает одно из двух значений (Истина или Ложь) или (0 или 1) в зависимости от...

Разработка алгоритмов с одномерными массивами
Дана последовательность целых положительных чисел. Найти произведение только тех из них, которые больше заданного числа М. Если таких чисел...

Составить программу с использованием базовых алгоритмов для работы с одномерными массивами
Составить программу с использованием базовых алгоритмов для работы с одномерными массивами. При помощи случайных чисел ввести...

4
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
20.11.2021, 17:22
И в чем возникли затруднения с отладкой?
0
1 / 1 / 0
Регистрация: 27.10.2021
Сообщений: 33
20.11.2021, 17:40  [ТС]
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program SRAV;
type massiv = array[1..10] of integer;
var A: massiv;
i,s,k: integer;
Begin
     writeln('Введите 10 целых чисел, для того чтобы узнать сумму отрицательных и кол-во положительных чисел');
     for i:=1 to 10 Do
     readln(A[i]);
     i:=1; S:=0; K:=0;
     for i:=1 to 10 do
Begin
     if A[i] >=0 then K:=K+1 else S:=S+A[i];
End;
     writeln('Количество положительных чисел: ',k,' cумма отрицательных чисел: ',s);
End.
Я сделал так, говорят не по алгоритму, не понимаю что не так.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,159
Записей в блоге: 1
20.11.2021, 17:47
Лучший ответ Сообщение было отмечено mixa200432 как решение

Решение

В алгоритме у вас тип циклов другой:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
  i:=1;
  repeat
    Read(x[i]);
    i:=i+1;
  until i>10;
  i:=1; s:=0; k:=0;
  repeat
    if x[i]>=0 
    then k:=k+1
    else s:=s+x[i];
    i:=i+1;
  until i>10;
  WriteLn(s,' ',k);
1
1 / 1 / 0
Регистрация: 27.10.2021
Сообщений: 33
20.11.2021, 17:48  [ТС]
Спасибо большое )
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
20.11.2021, 17:48
Помогаю со студенческими работами здесь

Составить программу с использованием базовых алгоритмов для работы с одномерными массивами
При помощи случайных чисел сформировать два массива A и B, содержащих 15 элементов. Третий массив сформировать по формуле ...

Составить программу с использование базовых алгоритмов для работы с одномерными массивами
Заполнить массив X значениями от -5 до 5с шагом 0,5. Используя значения из массива X сформировать массив Y по формуле. cosx+xsinx (паскаль)

Задача с одномерными массивами
создаем два массива размерностью 5, элементы массива вводятся списком и помещаем в третий массив среднее арифметическое элементов. ...

Операции с одномерными массивами
Помогите, пожалуйста!!!( В программе используются 4 массива: A, B, C, D. Элементы массивов вычисляются 2 способами — с помощью...

Работа с одномерными массивами
Дан массив А размерностью N. Организовать заполнение вручную. Найти сумму отрицательных элементов массива. Если сумма меньше введённого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru