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

@aleksskay4 · Регистрация: 02.12.2015

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

Есть такое задание:
Программа на Pascal которая заполняет массив из 10 случайных целых чисел на промежутке от -10 до 5 вычисляет разность элементов массива. Правильно я сделал? Диапазон я верно указал?

Pascal

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.

@Mikstereo · 20.11.2018, 23:12

Pascal

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.

Немного подправил вывод на новую строку,в остальном верно.

@Cyborg Drone · 21.11.2018, 13:18

aleksskay4, Mikstereo, а что у Вас за версия паскаля такая, которая позволяет складывать строки и числа? И в котором паскале есть такой random? Что-то мне подсказывает, что должно быть

Pascal

7	massiv[i]:= randomrange(-10,5);

Pascal

12	write(massiv[i], ' ');

Pascal

15	Writeln('Разность = ', raznost);

@ZX Spectrum-128 · 21.11.2018, 13:21

Сообщение от Cyborg Drone

И в котором паскале есть такой random

pabc.net

@Cyborg Drone · 21.11.2018, 13:41

ZX Spectrum-128, и правда...

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	21.11.2018, 13:21	4
	Сообщение от Cyborg Drone И в котором паскале есть такой random pabc.net 0

@Cyborg Drone Модератор 9968 / 5332 / 3329 Регистрация: 17.08.2012 Сообщений: 16,261
	21.11.2018, 13:41	5
	ZX Spectrum-128, и правда... 0

Опции темы

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

Решение