Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Julia20033112
18.04.2021 00:26 •
Информатика
Написать двумерный массив. найдите среднее арифметическое элементов массива заданных случайным образом [0..20]
Показать ответ
Ответ:
ERESYUR
13.07.2020 20:16
Program enot;
Var a: array [1..3,1..3] of integer;
i,j,s:integer; c: real;
begin
for i:= 1 to 3 do
for j:= 1 to 3 do
begin
a[i,j]:= random (20);
s:=s+a[i,j];
end;
c:=s/9;
write(c:4:2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Qwertyuiopasdfghjkzz
27.04.2020 11:28
Укажіть недруковані символи в документі:1)апостроф ,2)кінець рядка,3)кінець абзацу,4)кома,5)знак табуляції.Виберіть правильну відповідь...
nalininegi
01.06.2020 14:16
Каждая буква фрагмента известного стихотворения Ф.И. Тютчева заменена некоторой буквой так, что разным буквам соответствуют разные буквы, а одинаковым - одинаковые. Пробелы...
Касоничка
07.06.2021 15:50
Марина иванова, работая над проектом по , создала следующие файлы: d: .bmp d: \учёба\работа\писатели.doc d: \учёба\работа\поэты.doc d: . bmp d: .doc укажите полное имя...
donkikas
07.06.2021 15:50
Впоисках нужного файла петя последовательно переходил из каталога в каталог, при этом он несколько раз поднимался на один уровень вверх и несколько раз опускался на один...
Ermolenkoo
07.06.2021 15:50
Пользователь вводит в программу номер месяца. вывести название месяца, количество дней, время года, сообщить если месяц не является первым в году, сообщить если месяц...
Dashka6969
07.06.2021 15:50
Дан массив a(n). найти среднее арифметическое, количество и произведение отрицательных элементов, стоящих на нечетных местах. не использовать mod , использовать оператор...
Esken213141
16.02.2020 01:26
Написать программу в питоне Дано действительное число x. Напишите программу вычисления с заданной точностью приближенное значение бесконечной суммы....
hekyljana156
30.06.2021 06:42
(ответь на все эти вопросы правильно и получи 68 один неправильный ответ и не получишь не одного ) металл, вызывающий лихорадку атом, лишённый всех электронов самый распространённый...
maxim1213
30.06.2021 06:42
Запиши названия известных тебе басен. напиши напротив названия каждой басни её мораль...
Larisa150301
30.06.2021 06:42
Это предложение осложнено или нет? на речке и озере осень распушила туманы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var a: array [1..3,1..3] of integer;
i,j,s:integer; c: real;
begin
for i:= 1 to 3 do
for j:= 1 to 3 do
begin
a[i,j]:= random (20);
s:=s+a[i,j];
end;
c:=s/9;
write(c:4:2);
end.