Учеба и наука
Решено
Помагите решить задачу по информатике 10 класс - вопрос №261291
Помагите решить задачу по информатике. Извесны данные о массе и объёме 30 тел изготовленых из различных материалов, определить максимольную плотность. Использовать массив и решение через паскаль важно, скочно нужен ответ. Зарание спасибо
Дополнение автора от апрель 28, 2012 г., 23:26:09
через одномерный массив
Clad апрель 27, 2012 г.
-
Всего ответов: 2
-
Использовать два массива одномерных отдельно для массы и объема или один двумерный?
Если еще нужно, напишите
-
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.
Буду благодарна, если отметите
Лучший ответ по мнению автора
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.