//прога на Pascal`e type myrec = record rost : byte; ves : byte; end; var mas : array of myrec; n, i : byte; sumves, sumrost : longint; begin write ('Введите кол-во учеников: '); readln (n); setLength (mas, n); for i:=0 to n-1 do begin write ('Введите вес ', i+1, '-го ученика: '); readln (mas[i].ves); inc (sumves, mas[i].ves); write ('Введите рост ', i+1, '-го ученика: '); readln (mas[i].rost); inc (sumrost, mas[i].rost); end;
write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n) end.
type
myrec = record
rost : byte;
ves : byte;
end;
var
mas : array of myrec;
n, i : byte;
sumves, sumrost : longint;
begin
write ('Введите кол-во учеников: ');
readln (n);
setLength (mas, n);
for i:=0 to n-1 do
begin
write ('Введите вес ', i+1, '-го ученика: ');
readln (mas[i].ves);
inc (sumves, mas[i].ves);
write ('Введите рост ', i+1, '-го ученика: ');
readln (mas[i].rost);
inc (sumrost, mas[i].rost);
end;
write ('Средний вес учеников: ', sumves / n, '; Средний рост: ', sumrost / n)
end.
Объяснение:
Приведите примеры ситуаций, в которых информация:
собирается - опрос журналистом людей для статьи в газете
обрабатывается - решение учеником задачи
упрощается - тбъяснение учителем материала урока
создается - придумывание журналистом статьи (как ее написать, что в ней написать и т.д)
запоминается - выучивание учеником стиха
измеряется - рассчитывание программистом объема, который займет написанная им программа
копируется - списывание учеником домашнего задания у одноклассника
передается - распространение слухов внутри класса или школы (один рассказал, другой передал и так далее)
принимается - ученики слушают, что им рассказывает учитель на уроке
разрушается - отклонение написанной статьи журналиста
делится на части - работа с текстом на уроке русского языка (вставить запятые, буквы, например)
ищется - поиск материала для написания сообщения, доклада на какой-либо урок
Надеюсь, смогла