1) program exec;
var a:array[1..20] of integer;
var p,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(50);
writeln (a[i]);
if (a[i] mod 2<>0) then p:=p+1;
end;
if (p>0) then writeln ('Присутствуют нечётные элементы')
else writeln ('Не присутствуют нечётные элементы');
end.
2) program exec;
var a:array[1..20] of integer;
var p,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(50);
writeln (a[i]);
if (a[i] mod 2=0) then a[i]:=a[i]+1
else a[i]:=a[i]*2;
end;
writeln ('---'); // разделение двух массивов
for i:=1 to 20 do writeln (a[i]);
end.
Объяснение:
По умолчанию все ячейки листа отформатированы с использованием общего числового формата. В общем формате все данные, введенные в ячейку, обычно остаются без текста. Например, если ввести 36526 в ячейку, а затем нажать клавишу ВВОД, содержимое ячейки будет отображаться как 36526. Это вызвано тем, что ячейка остается в общем числовом формате. Тем не менее, если вы отформатируете ячейку в виде даты (например, d/d/), а затем введите число 36526, в ячейке отображается 1/1/2000.
Кроме того, существуют другие ситуации, в которых Excel оставляет числовой формат общим, но содержимое ячеек не отображается точно так, как было введено. Например, если у вас есть узкий столбец и вы вводите длинную строку цифр, например 123456789, в ячейке может отображаться что-то вроде 1,2 E + 08. При проверке числового формата в этом случае он остается общим.