В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
dasha45da
dasha45da
02.05.2022 05:56 •  Информатика

Тема паскаль: даны три массива a,b,c, состоящие из 10 элементов.присвоить массиву d среднее арифметическое каждого элемента этих трех массивов.(4 стр, 10 столбцов, 0 до 10). кто умеет решать.времени мало осталось.заранее . например: a b c d 1 2 3 (1+2+3)/3=2 2 3 4 (2+3+4)/3=3 3 4 5 (3+4+5)/3=4 4 5 6 (4+5+6)/3=5 5 6 7 (5+6+7)/3=6 6 7 8 (6+7+8)/3=7 7 8 9 (7+8+9)/3=8 8 9 10 (8+9+10)/3=9 9 10 11 (9+10+11)/3=10 10 11 12 (10+11+12)/3=11

Показать ответ
Ответ:
Машуля1790
Машуля1790
18.05.2020 19:00
Program sr;
const n=10;
var a,b,c:array[1..n] of integer;
    d:array[1..n] of real;
    i,k:integer;   
begin   
randomize;
for i:=1 to n do begin   
a[i]:=random(15);   
b[i]:=random(15);   
c[i]:=random(15);   
d[i]:=(a[i]+b[i]+c[i])/3   
end;   
for i:=1 to n do begin   
write (a[i],' ',b[i],' ',c[i],' ',d[i]:2:2);   
writeln;   
end;   
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота