Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
const n=15; {число элементов массива}
Var
a:array[1..n] of real;
summa:real;
Begin
summa:= 0;
for i:=1 to n
Do begin
readln(a[i]);
summa:=summa+a[i]
End;
writeln(‘сумма ’,n,‘ элементов массива равна ’,summa)
End.
2. {Программа поиска наибольшего элемента одномерного массива и его порядкового номера}
Program msg;
const n=20;
Var
a:=array[1..n] of real;
amax: real;
i,ne:integer;
Begin
write(’введите элемент 1 ’);
readln (a[1]);
amax:= a[1]; ne:=1;
for i:=2 to n
Do begin
write (’введите элемент № ’, i);
readln (a[i]);
if a[i]>amax
Then begin
amax:=a[i];
ne:=i
End
End;
writeln (’максимальный элемент равен ’, amax);
writeln (’и имеет порядковый номер ’, ne)
End.
3. {Программа нахождения произведения двух матриц A размером M*N и B размером N*K. Элементы результирующей матрицы C размером M*K рассчитываются по формуле . Значения M, N, K не превышают 10}
Дата публикования: 2014-10-25; Прочитано: 367 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!