Program aaa;
var A: array[1..100,1..100] of integer; n,k,r,c,x: integer; i,j: byte;
begin
randomize;
writeln ('Введите N, K, R, C');
readln (n,k,c,r);
x:=0;
for i:=1 to n do begin
for j:=1 to n do begin
writeln ('Введите ',j,'-е число ',i,'-ой строки');
readln (A[i,j]);
//или можно ввести рандомно: A[i,j]:=random(0,1);
if ((i>(r-k)) and (i<=r) and (j>(c-k)) and (j<=c) and (A[i,j]=1))
then x:=x+1
end
end;
writeln;
// в следующем цикле выводится весь массив для наглядности
// его можно просто убрать если не нужен
for i:=1 to n do begin
for j:=1 to n do begin
write (A[i,j]:3);
end;
writeln
end;
writeln;
writeln (x)
end.
Задание #1:
3) Компьютерная мышь
Задание #2
2) Графический 3) SILK-интерфейс 4) Командный
Задание #3
1) Комбинации символов
Задание #4
1) Пользовательский интерфейс
Задание #5
Знание
Задание #6
1.B
2.D
3.C
Задание #7
1) WIMP-интерфейс
Задание #8
2) Окно 4) Манипулятор
Задание #9
2) Голосовой
Задание #10
4) SILK
2 часть теста
Задание 1
4) Панели задач
Задание 2
2) Ярлык
Задание 3
1) Главное меню
Задание 4
?
Задание 5
2) Рабочий стол
Задание 6
2) Окно
Задание 7
Задание 8
2) Меню
Задание 9
3) WIMP
Задание 10
2) Диалоговые окна
Взять 2 миски-взять мешок с зерном-взять зёрнышко-цветное?-да-в серую коробку
|
нет
|
в белую коробку
робот берёт фасолину-цветная?-нет-в белую
|
да
|
в в серую коробку
допустим робот ложит всё внутреннее мешка на стол и когда щупает что ничего на столе нет останавливается!
Задача 1:
Program Test1;
Var min, i: integer; num: array[1..5] of integer;
Begin
Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);
min := 0;
for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;
if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end
else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;
End.
---------------------------------
Задача 2:
Program Test2;
Var max, i: integer; num: array[1..10] of integer;
Begin
Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);
max := 0;
for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;
if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end
else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;
End.
Вернее Сервисное обеспечение + єто программа
