Может кто нибудь написать небольшую программу по паскалю с массивами. и описать что выполняет каждая команда ? нужно на олимпиаде хоть что нибудь написать .
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016) var a,n,k,i,j,s:integer; begin writeln('Количество учеников и количество оценок'); readln(n,k); for i:=1 to n do begin for j:=1 to k do begin write('Ученик № ',i, ' оценка № ',j,' = '); readln(a); s:=s+a; end; end; println('Средняя оценка группы ',s/(n*k):6:3); end.
После того как мы узнали, что такое уравнение, и научились решать самые простые из них, в которых находили неизвестное слагаемое, уменьшаемое, множитель и т.п., логично познакомиться с уравнениями и других видов. Следующими по очереди идут линейные уравнения, целенаправленное изучение которых начинается на уроках алгебры в 7 классе. Понятно, что сначала надо объяснить, что такое линейное уравнение, дать определение линейного уравнения, его коэффициентов, показать его общий вид. Дальше можно разбираться, сколько решений имеет линейное уравнение в зависимости от значений коэффициентов, и как находятся корни. Это позволит перейти к решению примеров, и тем самым закрепить изученную теорию. В этой статье мы это сделаем: детально остановимся на всех теоретических и практических моментах, касающихся линейных уравнений и их решения. Сразу скажем, что здесь мы будем рассматривать только линейные уравнения с одной переменной, а уже в отдельной статье будем изучать принципы решения линейных уравнений с двумя переменными.
задание одномерного массива:
var ИмяМассива:array [НижняяГраница..ВерхняяГраница] of ТипЭлементов;
задание двумерного массива:
var ИмяМассива:array [НижняяГраница1..ВерхняяГраница1,НижняяГраница2..ВерхняяГраница2 ] of ТипЭлементов;
заполение массива:
одномерный массив: for i:=1 to 5 do readln(a[i]); {ввод с клавиатуры}
двумерный массив: for i:=1 to 3 do
for j:=1 to 2 do readln(a[i,j]);
вывод массива на экран:
в столбец: for i:=1 to 5 do writeln(a[i]);
в строку: for i:=1 to 5 do write(a[i],' ');
матрица двумерного массива:
for i:=1 to n do
begin
for j:=1 to m do
write (a[i,j]:4);
writeln;
end;
действия с одномерным массивом:
вычисление суммы элементов:
s:=0;
for i:=1 to n do s:=s+a[i];
подсчет элементов, удовлетворяющих условию:
k:=0;
for i:=1 to n do
if a[i] УсловиеОтбора then k:=k+1;