• 
  • 27 November 2012
  Английский язык
  • Автор: Alis981303

  

  1)составьте программу,которая заполняет массив a[1..10] случаынми целыми числами в диапазоне от 0 до 10 и находит минимальный элемент массива среди элементов с нечётными индексами

  2)составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 0 до 10,находит максимальный элемент массива,а затем вычисляет,сколько раз он встречается в массиве

• 
  • 27 November 2012
  • Ответ оставил: zaycevlad

  Первое.

  var
  a:array[0..9] of integer;
  i,y,min:integer;
  begin
  randomize();
  for i:=0 to 9 do
  begin
  y:= random(10);
  a[i]:= y;
  end;
  for i:=0 to 9 do write(a[i],' ');
  writeln(' - десять випадкових чисел');
  min:=a[0];
  for i:=1 to 9 do
  if a[i]<min then min:=a[i];
  writeln(min, ' - мiнiмальне число.');

  end.
  
  Второе
  

  var
  a:array[0..9] of integer;
  i,y,s,max:integer;
  begin
  randomize();
  for i:=0 to 9 do
  begin
  y:= random(10);
  a[i]:= y;
  end;
  for i:=0 to 9 do write(a[i],' ');
  writeln(' - десять випадкових чисел');
  max:=a[0];
  for i:=1 to 9 do
  if a[i]<max then max:=a[i];
  writeln(max, ' - максимальне число.');
  s:=0; // сума чисел, що приймають таке значення
  for i:=0 to 9 do
  if a[i]=max then s:=s+1;
  writeln('Зустричается ',s,' раз.');

  
  end.
  
  
  
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (02.11.2024) наш сайт содержит 244792 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы