Предмет: Информатика,
автор: vladradilovp8h3oc
7 Задание помогите пожалуйста
на коде Паскаль АБС
Приложения:
Ответы
Автор ответа:
1
Ответ:
var t: double;
var i: integer;
var mas: array [1..10] of integer;
begin
// Заполним массив и выводим его на экран
writeln('Исходный массив');
randomize;
For i:= 1 to 10 do
begin
mas[i]:=random(201)-100;
write(mas[i],' ');
end;
// Считаем сумму всех элементов
t := 0;
For i:= 1 to 10 do
begin
t := t + mas[i];
end;
//Среднее арифметическое:
t := t/10;
// Результат
writeln('Ответ: ',((t+98)/(t-98))*t);
end.
vladradilovp8h3oc:
спасибо
Попросили Объяснение как вы дошли до мысли сделать именно так программу
Отчёт в ворде надо сделать сначала титулку, потом условие, потом код
Она так мне сказала
Она так мне сказала
Работа над отчетом - отдельное задание, за которое вряд ли кто возьмется, поскольку титульный лист для каждого учебного заведения обычно свой. Насчет объяснения: могу объяснить только момент с автозаполнением массива случайными числами - вводить с клавиатуры 10 чисел просто неудобно.
спасибо уже не надо я разобрался и благодаря вашему коду получил зачет
Интересные вопросы
Предмет: Английский язык,
автор: Dasha300301
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: Ksunysha1
Предмет: Алгебра,
автор: ховангребень