Ребята, девчата, тут такое затруднение. Нужна программа в паскале, только в паскале.
10-11 класс
|
Условие:
Напишите программу которая вычисляет среднее арифметическое элементов таблицы А(3*8) . Программа по двумерным массивам.
uses crt;
var i,j,k,ni,nj:integer; a:array[1..100,1..100] of integer;
begin
clrscr;
randomize;
ni:=3; nj:=8;
for i:=1 to nj do begin
for j:=1 to ni do
a[i,j]:=random(10);
end;
for i:=1 to nj do begin
for j:=1 to ni do
write(a[i,j],' ' ); writeln;
end;
for i:=1 to nj do begin
for j:=1 to ni do
k:=k+a[i,j];
end;
writeln('sr = ',k);
readln
end.
Другие вопросы из категории
зрительное сообщение об остановке шарика в одной из лунок рулетки при общем их количестве 128.
2.Найдите х из следующего соотношения: 8xКбайт=16Гбайт
3.Чему равен десятичный эквивалент числа 10101?
4.Найти х: а)233.5=х б) 0.101=х
5.Найдите значение выражения: 125+11101*А2-1417,ответ переведите в восьмеричную систему счисления.
Решите как можно больше!!!!!
1) 420 кБ
2) 2500 кБ
3) 3200 кб
4) 5700 кБ
5) 2850 кБ
6) 3700 кБ
Читайте также
"Разработать программу,
которая осуществляет в текстовом файле поиск заданных слов. Слова
последовательно вводятся с клавиатуры. Для каждого слова должно определяться
количество вхождений и номера строк текста. Если указанное слово в файле
отсутствует, то программа должна выводить соответствующее сообщение."
И если можно, то и блок-схему.
Заранее спасибо!
Скиньте ссылки пожалуйста,очень выручите
2.написать программу в паскале
f(x)=2(sin*sin)x+1
Найти координаты точки М, где М - середина ВС
Нужна программа в паскале, помогите пожалуйста.
Нужна программа в паскале