Составить программу (в Pascal) позволяющую найти минимальный элемент массива. Подсчитать количество элементов в массиве, равных минимальному. Размеренность массива произвольная.

Question

Информатика

Лонгин

3 октября, 09:15

Составить программу (в Pascal) позволяющую найти минимальный элемент массива. Подсчитать количество элементов в массиве, равных минимальному. Размеренность массива произвольная.

+4

Ответы (2)

Знаете ответ?

Варюша · Answer 1

Program my;

var k, i, z:integer;

a:array[1 ... N]:integer;

begin

k:=99999;

for i:=1 to N do

if a[i]
z:=0;

for i:=1 to N do

if a[i]=k then z:=z+1;

end.

=)

Мишуня · Answer 2

Uses crt;

const N=10;

var a:array [1 ... N] of integer;

x, min, k:integer;

begin

for x:=1 to N do

begin

write ('a[', x,']:', a[x]) ;

readln (a[x]) ;

end;

min:=a[1];

for x:=1 to N do

if a[x]
for x:=1 to N do

if a[x]=min then inc (k) ;

writeln ('Минимальный элемент: ', min,'. Таких элементов в массиве: ', k) ;

end.