Var ar:array[1..10] of integer;
min,mini,i:integer;
begin
randomize;
min:=2147483647;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(100);
write(ar[i]:4);
if ar[i]<min then
begin;
min:=ar[i];
mini:=i;
end;
end;
for i:=mini to 9 do
ar[i]:=ar[i+1];
writeln;
writeln('Final array:');
for i:=1 to 9 do
write(ar[i]:4);
<span>end.</span>
Видимо, имеется в виду паскаль?
1 команда - ошибок нет
2. - в операторе присваивания (:=) слева от знака присваивания может быть только переменная, а здесь записано выражение a+b
3. - Так как слева от := может быть только переменная, то здесь тоже ошибка. Имена переменных не могут начинаться с цифры (6а - ошибка)
4. Здесь тоже ошибка, так как слева от := записан вызов функции (sqr(c))
5. a=8 - это не команда, а сравнение значений a и 8. Присваивание в паскале записывается :=
6. Здесь, видимо, используется математическая запись 2y (что неверно) вместо 2*y
Примерно так:
min=a[0];
for (int i=0, i<4, i++)
if(a[i]<min)
min=a[i];
здесь ты в переменную min записываешь минимальное значение. лучше первое значение из массива присваивать(или нулевое, как у меня).
проходишь циклом по массиву и сравниваешь значение min со значениями из масива. если какое-то окажется меньше, ты его записываешь в переменную min
если некоторые переменные окажутся одинаковыми, то ничего не произойдет :)
например
7 1 1 5
запишется первая единица. и все
Заходим в мой компьютер, другой кнопкой мыши по локальному диску с кликаем и выбираем в создать ярлык, отправляем ярлык на рабочий стол
