к стати объясню, пишим мы без компов...тупо текстом на бумажке так что нужны только коды
раскрыть ветку (18)
раскрыть ветку (17)
раскрыть ветку (15)
раскрыть ветку (14)
это точно можно писать в 11 классе на информатике? напомн что всё мы будем делать без компов
раскрыть ветку (13)
Я это девятиклассникам преподаю... Я же не знаю чему вас в школе учат... Да твою же мать. Ты попросил ответов. Тебе дали ответов.. Чего еще ты хочешь то?
раскрыть ветку (12)
раскрыть ветку (10)
Обычно люди за это деньги платят...
Давай начнем с пониманием теоретического материала... Напиши просто логику как бы ты это делал... Если верно, я переведу это в код. Если нет, то не вижу смысла больше тратить свое время...
Давай начнем с пониманием теоретического материала... Напиши просто логику как бы ты это делал... Если верно, я переведу это в код. Если нет, то не вижу смысла больше тратить свое время...
раскрыть ветку (5)
//5 Считаем среднее арифметическое
procedure p1 (mas:array of integer; var sa:float); //то что в варе - на вывод.
var s,i:integer;
begin
s:=0; //обнуляем
for i:=0 to length(mas)-1 do //суммируем все значения в массиве. length(mas) дает размер массива.
s:=s+mas[i];
sa:=s/length(mas); //делим сумму значений на количество значений
end;
//6 находим наибольшее значение в массиве
procedure p2 (mas:array of integer; var max:integer);
var i:integer;
begin
max:=mas[0]; //Берем первый элемент как максимальный
for i:=1 to length(mas)-1 do //если элемент массива больше чем в переменной макс, то присваемваем максу значение этого элемента.
if mas[i]>max then max:=mas[i];
end;
Заходишь на сайт http://fond.predanie.ru/, выбираешь любого из нуждающихся в помощи, жертвуешь. Скрин пожертвования выкладываешь в ответ. Это будет оплатой моей работы.
procedure p1 (mas:array of integer; var sa:float); //то что в варе - на вывод.
var s,i:integer;
begin
s:=0; //обнуляем
for i:=0 to length(mas)-1 do //суммируем все значения в массиве. length(mas) дает размер массива.
s:=s+mas[i];
sa:=s/length(mas); //делим сумму значений на количество значений
end;
//6 находим наибольшее значение в массиве
procedure p2 (mas:array of integer; var max:integer);
var i:integer;
begin
max:=mas[0]; //Берем первый элемент как максимальный
for i:=1 to length(mas)-1 do //если элемент массива больше чем в переменной макс, то присваемваем максу значение этого элемента.
if mas[i]>max then max:=mas[i];
end;
Заходишь на сайт http://fond.predanie.ru/, выбираешь любого из нуждающихся в помощи, жертвуешь. Скрин пожертвования выкладываешь в ответ. Это будет оплатой моей работы.
раскрыть ветку (3)