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

  

  ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧИ НА МАССИВЫ В ПАСКАЛЕ!!!)),как решать не объяснили,а принести уже завтра надо(((

  1)Заполните случайными числами целочисленный массив 10 на 10.Выведите на экран четвертую строку массива.
  
  2)Дан целочисленный массив,содержащий n элементов и заполненный с клавиатуры.Найти наибольшее значение элемента массива.

• 
  • 16 November 2012
  • Ответ оставил: bynov

  1)

  var

  a:array[1..10,1..10] of integer;

  i,j:integer;

  begin

  randomize;

   

   for j:=1 to 10 do

   for i:=1 to 10 do

  a[i,j]:=random(51);

  for i:=1 to 10 do

  write(a[i,4);

  end.

  2)

  var

  n,max,i:integer;

   

   a:array[1..n] of integer;

  begin

  max:=0;

   

   read(n);

  for i:=1 to n do

  read(a[i]);

  for i:=1 to n do

  if a[i]>max then max:=a[i];

  write(max);

  end.

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

   

  0
• 
  • 16 November 2012
  • Ответ оставил: Marinamakkartn

  Согласно правилам сервиса в одном вопросе нельзя задавать больше одного задания, так что я решаю 2.

   

  2)

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

  i,max:integer;

  begin

  for i:=1 to n do

  readln(a[i]);

  max := a[1];

  for i:=2 to n do

  if a[i]>max then max:=a[i];

  writeln('max = ', max);

  end.

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

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

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

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

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