Решите в паскале ! дана последовательность вещественных чисел. выведите на экран значения и номера элементов: наибольшего, наименьшего и наименее отличающегося от средне арифметического значения. заранее всем !
// PascalABC.NET 3.2, сборка 1336 от 14.11.2016 begin var a:=ArrRandomReal(ReadInteger('n='),10,30); a.Println; Writeln('Наименьший элемент № ',a.IndexMin+1); Writeln('Наибольший элемент № ',a.IndexMax+1); var m:=a.Average; var d:=a.Select((x,i)->(abs(x-m),i+1)); Writeln('Наименее отличается от среднего значения элемент № ', (d.Min).Item2) end.
Пример n= 5 28.8975487271778 29.3922267944516 10.5457673969426 21.9476794693375 20.9330827234933 Наименьший элемент № 3 Наибольший элемент № 2 Наименее отличается от среднего значения элемент № 4
Ну uses crt для того если я не ошибаюсь что-бы работала программа Var это переменные Writeln это то что обычно будет написано программой Readln это то число которое ты будешь вводить дальше веселей скажу на своём если i равно 1 или n тогда начали если j равно 1 или n тогда если i равно 1 или i равно n написать 0 в противном случае если i больше или равно j и i+j меньше или равно n+1 тогда написать 1 в противном случае если i меньше или равно j и i+j больше или равно n+1 тогда написать 1 в противном случае написать 0
program konfety; var t: real; i: integer; begin WriteLn('Введите стоимость 1 кг конфет (в рублях): '); Read(t); for i := 1 to 10 do WriteLn('Стоимость ', i, ' кг конфет: ', i*t); end.
Смысл такой: - цена 1 кг конфет (вещественный тип real) - счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла .
WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.
Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной то значение, которое мы ввели.
Далее идет цикл , который по сути вот что делает: Для каждого целого i от 1 до 10 сделай вот что: Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t
После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.
А дальше у нас end (последний end. всегда с точкой).
- цена 1 кг конфет (вещественный тип real)
- счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла 
.
begin
var a:=ArrRandomReal(ReadInteger('n='),10,30); a.Println;
Writeln('Наименьший элемент № ',a.IndexMin+1);
Writeln('Наибольший элемент № ',a.IndexMax+1);
var m:=a.Average;
var d:=a.Select((x,i)->(abs(x-m),i+1));
Writeln('Наименее отличается от среднего значения элемент № ',
(d.Min).Item2)
end.
Пример
n= 5
28.8975487271778 29.3922267944516 10.5457673969426 21.9476794693375 20.9330827234933
Наименьший элемент № 3
Наибольший элемент № 2
Наименее отличается от среднего значения элемент № 4