//Задание №1 //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 31; var a:array[1..m] of integer; i,s,n:integer;
begin for i:=1 to m do begin a[i]:=random(-20,20); if a[i]>0 then begin s:=s+a[i];n:=n+1; end; end; println('Температуры за месяц :'); a.println; writeln('Средняя в оттепель :',s/n:0:3); end.
Тестовое решение: Температуры за месяц : 16 7 19 -7 -18 6 12 -18 -5 -10 8 -4 10 4 10 5 -3 14 -7 -8 2 7 4 -7 18 4 -12 -5 -9 7 -5 Средняя в оттепель :9.000
//Задание №2 //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const m = 10; var a:array[1..m] of integer; i,s,n:integer;
begin for i:=1 to m do begin a[i]:=random(-20,20); if i mod 2<>0 then s:=s+a[i]; end; writeln('Исходный массив :'); a.println; for i:=1 to m do if i mod 2=0 then a[i]:=s; writeln('Сумма на нечетных местах = ',s); writeln('Изиененный массив :'); a.println; end.
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const m = 31;
var a:array[1..m] of integer;
i,s,n:integer;
begin
for i:=1 to m do begin
a[i]:=random(-20,20);
if a[i]>0 then begin
s:=s+a[i];n:=n+1;
end;
end;
println('Температуры за месяц :'); a.println;
writeln('Средняя в оттепель :',s/n:0:3);
end.
Тестовое решение:
Температуры за месяц :
16 7 19 -7 -18 6 12 -18 -5 -10 8 -4 10 4 10 5 -3 14 -7 -8 2 7 4 -7 18 4 -12 -5 -9 7 -5
Средняя в оттепель :9.000
//Задание №2
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const m = 10;
var a:array[1..m] of integer;
i,s,n:integer;
begin
for i:=1 to m do begin
a[i]:=random(-20,20);
if i mod 2<>0 then s:=s+a[i];
end;
writeln('Исходный массив :'); a.println;
for i:=1 to m do
if i mod 2=0 then a[i]:=s;
writeln('Сумма на нечетных местах = ',s);
writeln('Изиененный массив :'); a.println;
end.
Тестовое решение:
Исходный массив :
-6 15 5 -11 18 4 17 -9 -15 -16
Сумма на нечетных местах = 19
Изиененный массив :
-6 19 5 19 18 19 17 19 -15 19
17.. Установите соответствия между прикладными программами и их назначением
1. Браузер 10. Opera
2. Текстовый редактор 6. Блокнот
3. Графический редактор 4. Paint.NET
4. Редактор видео 3. Movie Maker
5. Издательская система 9. Microsoft Publisher
6. Электронная таблица 2.Microsoft Excel
7. Система управления базами данных 7. Microsoft Access
8. Программа создания презентаций 8. Microsoft Power Paint
9. Почтовая программа 5. Microsoft Outlook
10. Операционная система 1.Microsoft Windows
18.. Информацию, не зависящую от чьего-либо мнения и суждения, называют
1. Объективной
19.. Одно из свойств информации – это
4. Актуальность
20. Растровый графический редактор
2. Paint
21.. Оперативная память служит для
3. хранение исполняемой в данный момент времени программы и данных, с которыми она работает
22.. Служебная программа для проверки и настройки компьютера называется
2. утилита
23.. Объектами авторского права являются (выберите несколько ответов)
3. Программы для компьютеров (включая подготовительные материалы, а также звук, графику и видио, которое получаются с программы)
24.. К текстовым редакторам относятся (выберите несколько ответов)
1. Блокнот
3. Word Pad
5. Open Office Writer
25. К системам управления базами данных относятся
5. Microsoft Access
26..Конфигурация (топология) локальной сети, в которой все рабочие станции соединены с файл-сервером, называется
2. Радиальной (звезда)
27.. Комплекс аппаратных и программных средств, позволяющих компьютерам обмениваться данными
4. Компьютерная сеть