Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём некорректно. Вам необходимо обновить браузер или попробовать использовать другой.
uses crt;
var a:array[1..100] of integer;
i,j,n,max,imax,n1,n2,p,x,k:integer;
begin
ClrScr;
Randomize;
Writeln('Vvedite kol-vo elementov: ');
repeat
Write('n=');
Readln(n);
until n in [1..100];
for i:=1 to n do
begin
a[i]:=random(20)-10...
Пытаюсь разобраться с массивами в Free Pascal IDE
Пожалуйста помогите с написать программу выполняющую :
"В одномерном массиве, состоящем из п целочисленных элементов, вычислить:
1. Номер максимального элемента массива.
2. Произведение элементов массива, расположенных между первым и...
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.