Ответ:
program arrmax;
var
i, i1, i2, amax: Integer;
a: array [1..10] of integer;
begin
Randomize;
for i := 1 to 10 do // заполнение массива случайными числами
a [i] := Random (11);
for i := 1 to 10 do // вывод на экран элементов массива
Write (a [i], ' ');
amax := -1;
i1 := -1;
for i := 1 to 10 do // поиск первого максимального элемента
if a [i] > amax then begin
amax := a [i];
i1 := i;
end;
WriteLn;
WriteLn ('Индекс первого элемента массива с наибольшим значением = ', i1);
amax := -1;
i2 := -1;
for i := 10 downto 1 do // поиск последнего максимального элемента
if a [i] > amax then begin
amax := a [i];
i2 := i;
end;
WriteLn ('Индекс последнего элемента массива с наибольшим значением = ', i2);
ReadLn;
end.
Объяснение:
Паскаль:
const
n = 5;
type
mas = array[1..n] of integer;
var
a: mas;
i: byte;
begin
writeln('введите элементы массива');
for i:=1 to n do readln(a[i]);
writeln('вывод элементов массива:');
for i:=1 to n do write(a[i]:5);
end.
Си:
const n 5
int main() {
int mas[n];
int i;
for(i = 0; i < n; i++) {
scanf("%d", mas[i]) ;
}
return 0 ;
}
Попробуй поставить 3 галочки (там где Обеспечение целостности)
<span>// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
</span>
var
a:array[1..1000000] of integer;
i, n, x, y, cnt : integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Введите ', n, ' чисел');
for i:= 1 to n do read(a[i]);
Writeln('Введите промежуток от X до Y');
readln(x, y);
for i:= x to y do
if (a[i] < 0) then cnt:= cnt + 1;
Write('Отрицательных элементов: ', cnt);
end.
Могу на C++ сделать
{
int N;
cin>>N;
if(N%11==0)
cout<<1;
else cout<<0;
return 0;
}