Подсчитать количество элементов массива, расположенных между первым и минимальным элементами

@kushnir-lena · Регистрация: 30.03.2012

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

1.Подсчитать количество элементов массива, расположенных между первым и минимальным элементами.

@Севак · 01.04.2012, 18:53

Сообщение от kushnir-lena

1.Подсчитать количество элементов массива, расположенных между первым и минимальным элементами.

Pascal

uses crt;
var a: array[1..10] of integer;
    i,k,min: integer;
begin
min:=11;
write('Массив: ');
for i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if a[i]<min then begin
min:=a[i];
k:=i;
end;
end;
writeln;
write('Между минимальным и первым ',k-2,' элементов!');
end.

@kushnir-lena · 01.04.2012, 19:20 **[ТС]**

спасибо огромное) а как понимать k-2 в первой задачи?

@kushnir-lena · 01.04.2012, 19:37 **[ТС]**

спасибо=))
а можно эту программу сделать без Random?

1.Подсчитать количество элементов массива, расположенных между первым и минимальным элементами.

Pascal

uses crt;
var a: array[1..10] of integer;
    i,k,min: integer;
begin
min:=11;
write('Массив: ');
for i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if a[i]<min then begin
min:=a[i];
k:=i;
end;
end;
writeln;
write('Между минимальным и первым ',k-2,' элементов!');
end.

так чтобы я сама ввела массив

@Севак · 01.04.2012, 19:43

поменяй

Pascal

1	a[i]:=random(10);

на

Pascal

1	read(a[i]);

@kushnir-lena · 02.04.2012, 21:39 **[ТС]**

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

@kushnir-lena · 05.04.2012, 20:30 **[ТС]**

а почему min:=11 ? можно как нибудь подругому это написать?

@Севак · 05.04.2012, 20:36

kushnir-lena, ну хочешь пиши по другому, я заранее знаю, что числа не больше 10, поэтому и беру минимальный больше, чтобы получить правильный ответ, хочешь сделай так: первый элемент минимальный, если ккой-то другой меньше чем первый то меняем значение min

Добавлено через 1 минуту

Сообщение от kushnir-lena

Вывести на экран все двузначные числа, делящиеся на каждую из своих цифр. Подсчитать количество таких чисел.

Pascal

for i:=10 to 99 do begin
a=i mod 10;
b=i div 10;
if (i mod a=0) and (i mod b=0) then write(i,' ');

@kushnir-lena · 05.04.2012, 20:41 **[ТС]**

а почему min:=11 ? можно как нибудь подругому это написать?

Добавлено через 1 минуту
спасибо

@kushnir-lena · 07.04.2012, 12:16 **[ТС]**

Подсчитать количество элементов массива, расположенных между первым и минимальным элементами.

Pascal

const n=10;
var a: array[1..n] of integer;
i,imin,min: integer;
Begin
   min:=a[1]; imin:=1;
   writeln('введите элементы массива: ');
   for i:=1 to n do
   begin
   read(a[i]);
   if a[i]<min then
   begin
   min:=a[i];
   imin:=i;
   end;
   end;
   write('между первыи и минимальным ', imin-2, ' элементов');
   writeln;
End.

@Tbit · 07.04.2012, 12:40

Pascal

const n=10;
var a: array[1..n] of integer;
i,imin: integer;
Begin
  imin:=1;
  writeln('введите элементы массива: ');
  for i:=1 to n do
  begin
    read(a[i]);
    if a[i]<a[imin] then imin:=i;
  end;
  write('между первыи и минимальным ', imin-2, ' элементов');
  writeln;
End.

Думаю так лучше

@kushnir-lena · 07.04.2012, 13:05 **[ТС]**

помогите отредактировать и эту. Заменить минимальный по модулю элемент массива первым элементом.
(чтобы вместо минимального был первый элемент)

Pascal

const n=10;
var a: array[1..n] of integer;
    i,min: integer;
Begin
    min:=n;
    writeln('Введите элементы массива: ');
    for i:=1 to n do
    begin
    read(a[i]);
    if abs(a[i])<min then
    min:=abs(a[i]);
    end;
    a[1]:=min;
    writeln('Измененный массив: ');
    for i:=1 to n do
    begin
    write(a[i],' ');
    end;
End.

@Tbit · 07.04.2012, 13:20

Pascal

const n=10;
var a: array[1..n] of integer;
    i,imin: integer;
Begin
  imin:=1;
  writeln('Введите элементы массива: ');
  for i:=1 to n do
  begin
    read(a[i]);
    if abs(a[i])<abs(a[imin]) then imin:=i;
  end;
  a[imin]:=a[1];
  writeln('Измененный массив: ');
  for i:=1 to n do
  begin
    write(a[i],' ');
  end;
End.

@kushnir-lena · 07.04.2012, 14:12 **[ТС]**

а эту можно сделать как-нибудь покороче. Заполнить массив двадцатью первыми натуральными числами, кратными пяти. Вывести массив на экран.

Pascal

const n=20;
var a:array[1..n] of integer;
i,j:integer;
begin
j:=1;
for i:=1 to 100 do
if (i mod 5=0) then
begin
a[j]:=i;
j:=j+1;
end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.

07.04.2012, 14:32

Может так?

Pascal

const n=20;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to 100 do
if (i mod 5=0) then
a[i div 5]:=i;
for i:=1 to n do
write(a[i],' ');
writeln;
end.

@Tbit · 07.04.2012, 18:29

Я думаю так легче и понятней

Pascal

const n=20;
var a:array[1..n] of integer;
    i:integer;
begin
  for i:=1 to 20 do
  begin
    a[i]:=i*5;
    write(a[i],' ');
  end;
writeln;
end.

@kushnir-lena 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 36
		1
	Подсчитать количество элементов массива, расположенных между первым и минимальным элементами 01.04.2012, 18:34. Показов 2796. Ответов 15 Метки нет (Все метки) 1.Подсчитать количество элементов массива, расположенных между первым и минимальным элементами. 0

@kushnir-lena 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 36
	01.04.2012, 19:20 [ТС]	3
	спасибо огромное) а как понимать k-2 в первой задачи? 0

@kushnir-lena 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 36
	02.04.2012, 21:39 [ТС]	6
	Помогите пожалуйста написать программу с использованием вложенных циклов: Вывести на экран все двузначные числа, делящиеся на каждую из своих цифр. Подсчитать количество таких чисел. 0

@kushnir-lena 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 36
	05.04.2012, 20:30 [ТС]	7
	а почему min:=11 ? можно как нибудь подругому это написать? 0

@kushnir-lena 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 36
	05.04.2012, 20:41 [ТС]	9
	а почему min:=11 ? можно как нибудь подругому это написать? Добавлено через 1 минуту спасибо 0