ОТ
Задание №1. Создание таблицы по образцу (рис. 1) 1.В ячейке А1 записать название таблицы. 2.В ячейках А2:Е2 записать шапки таблицы с предварительным форматированием ячеек, для этого: 3.Выделить диапазон ячеек А2:Е2. 4.Выполнить команду Правой кнопкой мыши/Формат Ячеек/Выравнивание. 5.Установить переключатель «переносить по словам». 6.В поле «по горизонтали» выбрать «по центру», ОК. 7.В поле «по вертикали» выбрать «по центру», ОК. 8.Набрать тексты шапочек, подбирая по необходимости ширину столбцов вручную. 9.Заполнить столбец А названиями предприятий, предварительно отформатировав диапазон ячеек А3:А13 по образцу ячейки В2, для этого: 10.Выделить ячейку В2. 11.Выполнить команду Формат по образцу на панели инструментов Стандартная (кнопка в виде кисточки), к указателю мыши добавится значок кисточки. 12.С нажатой левой кнопкой мыши обвести диапазон А3:А13. 13.Набрать текст с названиями предприятий, подбирая при необходимости ширину столбцов вручную. 14.Набрать цифровые данные таблицы. 15.Подсчитать итоговые данные по столбцам, используя команду Автосумма. 16.Рассортировать предприятия по разным видам показателей, для этого:
Его можно рассматривать как систему, состоящую из подсистем «аппаратное обеспечение», «программное обеспечение», «информационные ресурсы»Подсистема аппаратного обеспечения выступает в качестве надсистемы для устройств ввода, обработки, хранения и вывода информации.
Операционная система — подсистема программного обеспечения и надсистема, в состав которой входят системные и служебные программы.
Система информационных ресурсов включает в себя системы текстовых и графических файлов, звуковых файлов, файлов с видеоинформацией и т. д.
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.