При выполнении разных операций с массивами, получается так, что первый элемент является нулевым - Turbo Pascal

  1. Доброго времени суток. Можете помочь? Проблема в том, что иногда, при выполнении разных операций с массивами, получается так, что первый элемент является нулевым. К примеру в программах по поиску индекса максимального/минимального. Подскажите как это исправить? Еще было бы хорошо, если бы мне помогли с программой, в которой нужно поменять местами максимальный с минимальным, соответственно используя их индексы.


textual

Код к задаче: «При выполнении разных операций с массивами, получается так, что первый элемент является нулевым - Turbo Pascal»

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,max,min,x:integer;
begin
clrscr;
randomize;
writeln('Array:');
for i:=1 to n do
 begin
  a[i]:=random(20)-5;
  write(a[i]:4);
 end;
writeln;
max:=1; min:=1;
for i:=1 to n do
if a[i]>a[max] then max:=i
else if a[i]<a[min] then min:=i;
writeln('Max element a[',max,']=',a[max],' min element a[',min,']=',a[min]);
x:=a[max];
a[max]:=a[min];
a[min]:=x;
writeln('Max switched with min');
for i:=1 to n do
write(a[i]:4);
readln
end.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.500 из 5



Похожие ответы
  1. Нужно отредактировать прогу, так чтобы в ней появились еще несколько таких же елочек только сделаных независимо от координат, и также присутствовали падающие снежинки на фоне))) спасибо!!!

  1. В таблице случайных чисел каждое число от 1 до 9 должно быть разного цвета. Имеется

  1. Из какого числа разных цифр состоит целое положительное число N. Для выделения каждой цифры, составляющей число N, целесообразно воспользоваться алгоритмом последовательного определения остатка от деления N на основание 10. Например, пусть N=172; 172/10=17 (2 в остатке), 17/10=1 (7 в остатке). Цифры остатков 2,7,1-это разные цифры, составляющие число 172.

  1. Помогите пожалуйста, очень нужно!!! Описать процедуру, которая вычисляет количество разных цыфр в десятичной записи числа и выводит эти цифры.

  1. Просьба помочь в решении задания исполоьзуя 3 разных циклов вывести на экран цифры от 1 до 9 в обратном порядке

  1. Помогите написать задачу.Основная программа и 2 модуля 1 модуль заливает экран жёлтым цветом 2 модуль выводит окружность основная прога обращается к 1 и 2 модулю и прекращает работу.

  1. Введенную с клавиатуры матрицу вывести на печать в разных цветовых гаммах: для элементов над диагональными элементами; диагональн. элементами; под диагональю.

  1. В файле содержаться адреса n человек. Вывести фамилии людей, живущих в разных городах по одинаковым адресам, или сообщить что таких людей нет. Создать новый файл, в который скопировать данные из первого файла, упорядоченные по фамилиям. В своем решении обязательно использовать процедуры или функции. Поразмышляв я решила что нужно использовать массив записей где первая строчка с наименованиями полей будет: Фамилия Город Адресс а потом сравнивать: допустим в первой процедуре узнать все фамилия проживающие в разных городах; во второй процедуре (работая уже с фамилиями из первой процедуры) вывести все фамилии с одинаковыми адресами а в третьей процедуре упорядочить фамилии. Ну а в последней процедуре создать новый файл и перезаписать в него данные. Мой вопрос заключается в следующем: как сравнить города и адреса? Я не понимаю этот нюанс. Нам дано неизвестное количество людей(т.е. решать нужно для любого числа) . Подскажите как отфильтровать

  1. 22. Человеку нужно съездить из Лондона в расположенный в 390 милях Эдинбург. Он может ехать на автомобиле марки Роллс-Ройс, либо на автомобиле марки Форд Эскорт. Роллс-Ройс расходует 1 галлон бензина на каждые 15 миль пути. Форд Эскорт расходует 1 галлон бензина на каждые 36 миль пути. Сколько будет стоить поездка в Эдинбург на Роллс-Ройсе, если стоимость 1 галлона бензина составляет Х фунта? Сколько денег он сбережет, если вместо этого он поедет на машине марки Форд Эскорт?