Объяснение:
По умолчанию все ячейки листа отформатированы с использованием общего числового формата. В общем формате все данные, введенные в ячейку, обычно остаются без текста. Например, если ввести 36526 в ячейку, а затем нажать клавишу ВВОД, содержимое ячейки будет отображаться как 36526. Это вызвано тем, что ячейка остается в общем числовом формате. Тем не менее, если вы отформатируете ячейку в виде даты (например, d/d/), а затем введите число 36526, в ячейке отображается 1/1/2000.
Кроме того, существуют другие ситуации, в которых Excel оставляет числовой формат общим, но содержимое ячеек не отображается точно так, как было введено. Например, если у вас есть узкий столбец и вы вводите длинную строку цифр, например 123456789, в ячейке может отображаться что-то вроде 1,2 E + 08. При проверке числового формата в этом случае он остается общим.
1.
program z1;
var a:array [1..10] of integer;
i,k:integer;
begin
write ('Введите элементы массива через пробел и нажмите Enter ');
for i:=1 to 10 do read (a[i]);
write ('Массив: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
write ('Номера элементов больше 5: ');
for i:=1 to 10 do if a[i] > 5 then
begin
write (i,' ');
k:=k+1
end;
writeln;
writeln ('Элементов больше 5: ',k)
end.
2.
program z2;
var s:string;
begin
readln (s);
while pos('о',s)<>0 do delete(s,pos('о',s),1);
writeln(s)
end.
Объяснение:
Смотри картинки
2. Программа удаляет только строчные русские о
{$APPTYPE CONSOLE}
uses SysUtils;
var a:array [0..9] of integer; i,max,indx,tmp:Integer;
begin
Randomize;
for i:=0 to 9 do
a[i]:=Random(10);
for i:=0 to 9 do
write(a[i]:3);
Writeln;
max:=a[0];
indx:=0;
for i:=0 to 9 do
if a[i]>max then
begin
max:=a[i];
indx:=i;
end;
tmp:=a[0];
a[0]:=max;
a[indx]:=tmp;
for i:=0 to 9 do
write(a[i]:3);
readln;
end.