сервис вопросов и ответовVar
10-11 класс|
|
a:array[1..1000]of integer;
i,n,summ:integer;
begin
write('введите кол-во элементов');
readln(n);
write('введите элементы массива');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
summ:=summ+a[i];
writeln('среднее арифм. элементов массива=',summ/n)
end.
Объяснить программу по строчно!
Svetlanatelpis
25 окт. 2014 г., 21:17:26 (9 лет назад)
Mashaaa23
25 окт. 2014 г., 23:41:07 (9 лет назад)
var
a:array[1..1000]of integer;{задаем массив}
i,n,summ:integer;{задаем переменные}
begin
write('введите кол-во элементов');
readln(n);
write('введите элементы массива');
for i:=1 to n do{цикл от 1 до кол-ва элементов,например n=5,значит будем выполнять цикл 5 раз}
readln(a[i]);{заполняем массив n раз}
for i:=1 to n do
summ:=summ+a[i];{складываем элементы массива}
writeln('среднее арифм. элементов массива=',summ/n){выводим сумму элементов деленную на n(их кол-во)}
end.
Anysh13
26 окт. 2014 г., 1:23:54 (9 лет назад)
где for i это ввод. это 8 строка у тебя. С 10 начинается вывод. End конец. Больше ничего не знаю.
Ответить
Другие вопросы из категории
Врач-стоматолог принимает пациентов с 8 утра до 2 часов дня. На каждого пациента отводится по 30 минут. Какое количество информации содержит сообщение о
том, что Петя записался на прием в 11.30?
Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 200 ¬– рост учащихся выпускного класса. В баскетбольную команду
берут тех, чей рост не менее 180 см.Опишите на русском языке или на одном из языков программирования алгоритм, который подсчитывает и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены так, как показано ниже. Использовать другие переменные запрещается.
Код Pascal
cоnst N = 30;
var A: array[1..N] of integer;
i, x, y: integer;
s: real;
begin
for i:=1 to N do readln(A);
...
end.
Читайте также
Где ошибка?? const n=10; type TMas=array[1..n] of integer; var mas1:TMas; procedure ImputMas1(var masTMas: integer);
var i: integer;
begin for i:=1 to 10 do
begin
mas1[i]:=random(n);
Write(mas1[i]:3);
end;
end.
Где ошибка?? const n=10; type TMas=array[1..n] of integer; var mas1:TMas; procedure ImputMas1(var masTMas: integer);
var i: integer;
begin for i:=1 to 10 do
begin
mas1[i]:=random(n);
Write(mas1[i]:3);
end;
end.
1. Сформировать внутреннюю и внешнюю файл-функцию.
//Задан одномерный массив,вывести на печать все элементы, которые равны первому.
const n=5;
Var A:array[1..n] of integer;
i:integer;
Begin
// Формируем и выводим массив
Writeln(' Массив: ');
For i:=1 to n do
Begin
A[i]:=Random(10);
Write(A[i]:2);
end;
Writeln();
// Находим элементы, которые равны первому.
Writeln(' Первому элементу равны:');
For i:=1 to n do
begin
If (A[1]=A[i]) then
Write(A[i]:2)
end;
end.
1. Какие из приведенных описаний являются неправильными и почему?
• var a: array [1..20] of integer;
• type myarray=array [1..20];
var b: myarray;
• var sd: array [1..n] of integer;
• var dd: array[1] of integer;
Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=3; k:=1;
while k < 25 do begin
s:=s+k;
k:=k+2;
end;
write(s);
end.
Вы находитесь на странице вопроса "Var", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.