1. Что такое электронная таблица и каково ее назначение? 2. Как обозначаются столбцы и строки в MS EXCEL? 3. Как изменить ширину столбца (высоту строки)? 4. С какими типами данных работает MS EXCEL? 5. Какое расширение имеет файл книги электронной таблицы? 6. Из чего состоит рабочая книга? 7. Как ввести данные в ячейку? Как отредактировать данные в ячейке? 8. Каково назначение формул в MS EXCEL? Что может входить в формулу? 9. Что отображается в ячейке после введения в нее формулы? Как увидеть формулу? 10. Что такое абсолютный и относительный адрес ячейки, входящей в формулу? 11. Как отобразить числа с символом денежной единицы, процента? 12. Какие автозаполнения таблицы вы знаете? 13. Как выполняется копирование формулы, распространение на соседние ячейки (автозаполнение) формулы? 14. Как разграничить таблицу?.
Var a:array[1..n] of integer;
i,indx,k,tr,indxx:integer;
Begin
Randomize;
For i:=1 to n do begin
A[i]:=Random(40)-20;
Write(a[i],' ');
end;
Writeln;
write('0 имеет номер: ');
For i:=1 to n do
Begin
If A[i]=0 thenwrite(i);
end;
Writeln;
indx:=0;
For i:=1 to n do
Begin
If a[i] mod 2=0 then
begin
indx += 1;
a[indx]:=a[i];
end;
end;
Write('Индекс четных элементов: ');
For i:=1 to indx do
write(a[i],' ');
For i:=1 to n do
Begin
If A[i]<0 then
Begin
inc(k);
end;
end;
Writeln;
Writeln('Кoличество отрицательных элементов: ',k);
For i:=1 to n do
Begin
If A[i] mod 3=0 then
tr:=a[i];
end;
Writeln('Кратное трем ',tr);
indxx:=0;
writeln('Индексы кратны 3: ');
For i:=1 to n do
Begin
If a[i] mod 3=0 then
begin
indxx += 1;
a[indxx]:=a[i];
write(' ',a[i]);
end;
end;
end.