Repeat
a:=a+1;
b:=Arr[a];
writeln(b);
until b = 0;
Вероятно так
Если по программе 1-4 класс, то ответ курсор. Буква Р- 18 по счету
Var a:array[1..10] of integer;
i,k:integer;
begin
writeln('vedite 10 chisel masiva');
k:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do begin
if (a[i]=0) then k:=k+1;
end;
writeln('kolichestvo nuley ',k);
writeln('massiv v obratnom porydke');
for i:=10 downto 1 do
write(' ',a[i]);
end.
Для установки операционной системы :
1) Заходим в BIOS и устанавливаем загрузку с CD-ROM
2) Втыкаем в CD-ROM установочный диск
3) Выходим из биоса сохраняя настройки
4. Автоматический ребут ( перезагрузка компьютера )
5. Начинается процесс загрузки с CD ( если только имеет верный формат )
6. Далее всё на русском
После установки :
Программа установки проверяет пк
И вводишь данные
всё.
Сделай лучшим решением заранее благодарен
Var mas: array[1..15] of integer;
i, min, max, nMin, nMax:integer;
begin
writeln('Введите 15 элементов массива');
for i := 1 to 15 do
readln(mas[i]);
min := mas[1];
max := mas[1];
nMin := 1;
nMax := 1;
for i := 1 to 15 do
begin
if max < mas[i] then
begin
max := mas[i];
nMax := i;
end;
if min > mas[i] then
begin
min := mas[i];
nMin := i;
end;
end;
writeln('Максимальное число и его номер ', max, ' ', nMax, ' Минимальное число и его номер ', min, ' ', nMin);
end.