Помагите решить задачу по информатике 10 класс - вопрос №261291

Помагите решить задачу по информатике. Извесны данные о массе и объёме 30 тел изготовленых из различных материалов, определить максимольную плотность. Использовать массив и решение через паскаль важно, скочно нужен ответ. Зарание спасибо



Дополнение автора от 29.04.12 00:26:09

через одномерный массив

Лучший ответ по мнению автора

program zad;

uses crt;

const n=30;

var a,b,c:array[1..n] of real;

i:integer; max:real; nom:integer;

begin

 clrscr;

 writeln('введите массу и объем 30 тел');

  for i:=1 to n do begin

  write(i,' масса='); readln(a[i]); 

  write(i,' объем='); readln(b[i]);

  end;

  for i:=1 to n do

   c[i]:=a[i]/b[i];

  max:=c[1]; nom:=1;

  for i:=1 to n do 

   if c[i]>=max then begin

     max:=c[i]; nom:=i;

  end;

  writeln('максимальная плотность=', max:8:2);

  writeln('тело номер=',nom);

  readln;

end. 

Буду благодарна, если отметите 

29.04.12
Лучший ответ по мнению автора

Другие ответы

Использовать два массива одномерных отдельно для массы и объема или один двумерный?

Если еще нужно, напишите 

27.04.12

Еva

от 100 p.
Читать ответы

1 1

Бесплатно
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store