var a: array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i] := 1 else a[i] := 0;
writeln (a)
end.
Странно, что удалили мой ответ о нахождении в буфере обмена обоих фрагментов.
Из буфера обмена можно выбрать любой фрагмент, который даже не был скопирован или вырезан в данной программе.
Определение: Буфер обмена это<span> промежуточное хранилище данных, предназначенное для переноса или копирования между </span>приложениями<span> или частями одного приложения через операции </span>вырезать, копировать, вставить<span>.
Вот скриншот буфера обмена из ворда. Там находятся 2 строки, причем выбрать можно любую. Одну скопировал, вторую вырезал. Также там находится скриншот экрана, который тоже помещается в буфер обмена
</span>
Ну вот, надо что то написать чтоб было 20 символов)))
В Pascal:
const n=100;
var a: array[1..n] of integer;s,i:integer;
begin
s:=0;
for i:=1 to n do begin
writeln('Введите', i, '-й элемент массива');
readln (a[i]);
end;
for i:=1 to n do begin
s:=a[i]+s;
end;
write('Сумма элементов массива = ',s);
<span>end.</span>
На скриншоте ===========
Стандартная шахматная нотация через пробел (a2 a4 ) для ввода тоже работает )) ну и 35 37 тоже....