Задача в паскале

opskaka · 05.12.2010, 21:20

Массив состоит из десяти целых чисел.Определить,сколько из этих чисел принимают наименьшее значение.

ну как я поняла) Мы вводим массив из 10 чисел, потом вводим Число - которое будет выполнять функцию наименьшего значения. Потом все это дело забиваем в цикл, ставим счетчик и через поэлементное сравнение начинаем сравнивать элементы. Если число из массива = наименьшему, то счетчик +1. то получилось так
Program m1;
uses crt;
Var mas:array [1..10] of integer;
x,i: integer;
n:integer;
begin
clrscr;
n:=0;
Writeln ('Введите наименьшее значение!');
readln (x);
Writeln ('Введите массив:');
for i:=1 to 10 do
begin write ('[',i,']='); readln (mas[i]);
if mas[i] = x then
n:=n+1; end;
write ('Вот введеный вами массив -');
for i:=1 to 10 do begin write ('');
write (mas[i]:3,' '); end; writeln;
writeln('_________________________________________ _____________');
Writeln ('количество элементов = ',n);
end.

или сначала нужно вести массив,потом вычислить наименьшее из элементов и посчитать сколько таких элементов,равных наименьшему?Люди,помогите пожалуста...голова кругом....простая задача...не врубаюсь!!!!

Vladimir_S · 05.12.2010, 21:51

Цитата:

Сообщение от opskaka

или сначала нужно вести массив,потом вычислить наименьшее из элементов и посчитать сколько таких элементов,равных наименьшему?Люди,помогите пожалуста...голова кругом....простая задача...не врубаюсь!!!!

Да никаких проблем. Действительно, желательно, чтобы программа сама нашла наименьший элемент. Например, так:

Код:

Program m1;
uses crt;
Var
 mas:array [1..10] of integer;
 x,i: integer;
 n:integer;
begin
 clrscr;
 n:=0;
 x:=32000;
 Writeln ('Введите массив:');
  for i:=1 to 10 do
   begin
    write('[',i:2,']= ');
    readln(mas[i]);
    if mas[i]<x then x:=mas[i];
   end;
 writeln('Вот введеный вами массив:');
 for i:=1 to 10 do
  begin
   write (mas[i]:3,' ');
   if mas[i]=x then n:=n+1;
  end;
 writeln;
 writeln('_______________________________________________________');
 Writeln ('количество элементов = ',n);
 readkey;
end.

05.12.2010, 21:20	#1 (permalink)
opskaka Member Регистрация: 05.12.2010 Сообщений: 25 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Задача в паскале Массив состоит из десяти целых чисел.Определить,сколько из этих чисел принимают наименьшее значение. ну как я поняла) Мы вводим массив из 10 чисел, потом вводим Число - которое будет выполнять функцию наименьшего значения. Потом все это дело забиваем в цикл, ставим счетчик и через поэлементное сравнение начинаем сравнивать элементы. Если число из массива = наименьшему, то счетчик +1. то получилось так Program m1; uses crt; Var mas:array [1..10] of integer; x,i: integer; n:integer; begin clrscr; n:=0; Writeln ('Введите наименьшее значение!'); readln (x); Writeln ('Введите массив:'); for i:=1 to 10 do begin write ('[',i,']='); readln (mas[i]); if mas[i] = x then n:=n+1; end; write ('Вот введеный вами массив -'); for i:=1 to 10 do begin write (''); write (mas[i]:3,' '); end; writeln; writeln('_________________________________________ _____________'); Writeln ('количество элементов = ',n); end. или сначала нужно вести массив,потом вычислить наименьшее из элементов и посчитать сколько таких элементов,равных наименьшему?Люди,помогите пожалуста...голова кругом....простая задача...не врубаюсь!!!!

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

05.12.2010, 21:20
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Может быть такое, что участники форума уже решили эту проблему Задача на массивы в Паскале Задача на Паскале и С++

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070