71 / 68 / 46
Регистрация: 02.12.2015
Сообщений: 890
Записей в блоге: 1
1

Найти разность элементов массива

20.11.2018, 19:45. Показов 7034. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть такое задание:
Программа на Pascal которая заполняет массив из 10 случайных целых чисел на промежутке от -10 до 5 вычисляет разность элементов массива. Правильно я сделал? Диапазон я верно указал?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var
  // создаем массив
  massiv:array[1..10] of integer;
  raznost,i:integer;
  
begin
  clrscr;
  randomize;
  // 
  for i:=1 to 10 do 
    massiv[i]:= random(-10,5);
  Writeln('Вывод массива');
  raznost := 0;
  for i := 1 to 10 do begin
      write(massiv[i] + '  ');
      raznost := raznost - massiv[i]; 
    end;
  Writeln('raznost = ' + raznost);
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.11.2018, 19:45
Ответы с готовыми решениями:

Найти сумму элементов массива с четными индексами, и разность элементов с нечетными
ДАН МАССИВ A НАЙТИ СУММУ ЭЛЕМЕНТОВ С ЧЕТНЫМ НОМЕРОМ И РАЗНОСТЬ С НЕ ЧЕТНЫМ. ВОЗНИКЛА ПРОБЛЕМА С...

Найти разность модулей сумм положительных и отрицательных элементов массива
Дан массив A(N), в котором есть положительные и отрицательные элементы. Найдите R = |S1| - |S2|,...

Напечатать разность с каждым из элементов массива
Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями вида P/Q (где...

Разность max и min элементов массива
Подскажите пожалуйста как решать задачу: Дан упорядоченный по возрастанию массив и дано число...

4
98 / 36 / 18
Регистрация: 05.11.2018
Сообщений: 231
20.11.2018, 23:12 2
Лучший ответ Сообщение было отмечено aleksskay4 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  massiv:array[1..10] of integer;
  raznost,i:integer;
begin
  randomize;
  for i:=1 to 10 do 
    massiv[i]:= random(-10,5);
  raznost := 0;
  for i := 1 to 10 do 
    begin
      write(massiv[i] + '  ');
      raznost := raznost - massiv[i]; 
    end;
    writeln;
  Writeln('Разность = ' + raznost);
end.
Немного подправил вывод на новую строку,в остальном верно.
1
Модератор
9593 / 4912 / 3245
Регистрация: 17.08.2012
Сообщений: 15,346
21.11.2018, 13:18 3
aleksskay4, Mikstereo, а что у Вас за версия паскаля такая, которая позволяет складывать строки и числа? И в котором паскале есть такой random? Что-то мне подсказывает, что должно быть
Pascal
7
    massiv[i]:= randomrange(-10,5);
Pascal
12
      write(massiv[i], '  ');
Pascal
15
  Writeln('Разность = ', raznost);
0
Эксперт Pascal/Delphi
6806 / 4565 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
21.11.2018, 13:21 4
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
И в котором паскале есть такой random
pabc.net
0
Модератор
9593 / 4912 / 3245
Регистрация: 17.08.2012
Сообщений: 15,346
21.11.2018, 13:41 5
ZX Spectrum-128, и правда...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.11.2018, 13:41
Помогаю со студенческими работами здесь

Найдите разность наибольшего и наименьшего элементов массива
Написать программы и составить блок схемы к задачам: 2. Задайте массив из 10 элементов с...

Вычислить разность между суммами нечётных и чётных элементов массива
Завтра надо сдать 2 задачи, помогите плиииз. 1.Вычислить разность между суммами нечётных и чётных...

Найти разность элементов побочной диагонали матрицы
Ввести квадратную матрицу и найти разность элементов побочной диагонали. Помогите как сделать или...

поиск суммы элементов двумерного массива, имеющих заданную разность индексов
помогите пожалуйста решить задачку через массив.:( Составить программу поиска суммы элементов...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru