Обе программы входят в пакет Microsoft Office. У них очень похож пользовательский интерфейс. В обоих программах можно писать и использовать макросы. В качестве внутреннего языка используется VBA - Visaul Basic for Applications. Фрагменты из Word и Excel можно просто перетаскивать мышкой между этими приложениями. Двойной щелчок по таблице Excel, вставленной в документ Word, вызывает Excel, позводяя в нем работать с такой таблицей. Аналогично обстоит дело с выховом Word из Excel.
Разница состоит в том, что все же Word - это текстовый процессор, предназначенный для работы с текстовыми документами, а Excel - средство для работы с электронными таблицами.
Program qq;
uses crt;
var A:array [1..20] of integer; i: integer;
begin
for i:=1 to 20 do
readln (a[i]); //ввод массива. Не указали откуда дан массив, так что введем его через enter
for i:=1 to 20 do
if a[i]<10 then
a[i]:=0; //сравним каждый элемент массива с 10. если меньше 10, то заменим на ноль
for i:=1 to 20 do
write (a[i], ' '); //Вывод массива на экран
<span>end.</span>
Program Ok;
var a,i,k,n:integer;
begin
k:=0;
write('Введите кол-во чисел: ');
readln( n);
for i:=1 to n do
begin
read(a);
if (a div 10 <> 0) and (a div 100 = 0) and (a mod 2 = 0) and (a mod 3 = 0) then
k:=k+1;
end;
write(k);
end.
<span> 0,0625 Мб =</span><span>65 536 байт
</span>