Определить разницу между максимальным и минимальным элементом

@sergan · Регистрация: 01.12.2011

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

помогите пожалуйста.
1. С клавиатуры вводится массив, состоящий из 10 целых элементов, определите количество элементов, которые делятся на 3 и на 5.
2. С клавиатуры вводится линейный массив из 10 целых элементов, определить разницу между максимальным и минимальным элементом.

@baquaqa · 28.12.2012, 00:48

Здравствуйте, вот вариант решения.
(компилировался в PascalABC.net)

Pascal

program _array;
 
const
 
 N = 10;
 
type
 
 TArray = Array [1..10] of integer;
 
var
 
 i        :integer;
 mas      :TArray;
 max,min  :integer;
 count    :integer;
 
BEGIN
 
 
{ input  }
 for i:=1 to N do begin
                   Write('Mas[',i,']: ');
                   Readln(mas[i]);
                  end;
 
{ calc. & output}
 count:=0;max:=mas[1];min:=max;
 for i:=1 to N do begin
                   if (mas[i] mod 3 = 0 ) and
                      (mas[i] mod 5 = 0 )
                   then inc(count);
                   if max<mas[i] then max:=mas[i];
                   if min>mas[i] then min:=mas[i];
                  end;
 write('количество элементов, которые делятся на 3 и на 5: ',count);
 write('разница между максимальным и минимальным элементом',max-min);
                 
END.

@sergan 0 / 0 / 1 Регистрация: 01.12.2011 Сообщений: 15
		1
	Определить разницу между максимальным и минимальным элементом 28.12.2012, 00:15. Показов 1403. Ответов 1 Метки нет (Все метки) помогите пожалуйста. 1. С клавиатуры вводится массив, состоящий из 10 целых элементов, определите количество элементов, которые делятся на 3 и на 5. 2. С клавиатуры вводится линейный массив из 10 целых элементов, определить разницу между максимальным и минимальным элементом. 0

Опции темы

Определить разницу между максимальным и минимальным элементом

Решение