Const
N = 3;
M = 6;
Var
A:array[1..N,1..M] of integer;
i,j,iMin,jMin,Z:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
iMin:=1;
jMin:=1;
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j],' ');
if A[iMin,jMin] > A[i,j] then
Begin
iMin:=i;
jMin:=j
End
End;
WriteLn;
End;
WriteLn;
WriteLn('Min(A) = ',A[iMin,jMin],'[',iMin,',',jMin,']');
WriteLn;
Write('Z = ');ReadLn(Z);
WriteLn;
if A[iMin,jMin] > Z then WriteLn('Превышает.')
else WriteLn('Не превышает.')
End.
задача дана не четко поэтому не гарантирую что решение будет полностью верным, делаю так как она должна быть по моему мнению...
var
a, h, d, S : real;
begin
write('введите длину основания a=');
readln(a);
write('введите d=');
readln(d);
h := a-d;
S := a*h/2;
writeln('h=', h);
writeln('S=', S);
end.
2.Возьми нужные тебе учебники
3. Положи нужные тебе учебники в портфель
4.Возьми нужные тебе тетради
5.Положи нужные тебе тетради в портфель
6. Возьми дневник
7.Положи дневник в портфель
8.Возьми пенал
9. Положи пенал в портфель.
;)) все
Ответ:
№1
1) Устройство вывода
2) Процессор
№2
1) Клавиатуры
2) Принтере
№3
Устройства ввода: клавиатура
Устройства вывода: монитор, наушники, принтер
№4
1) Веб-камера
2) Проектор
Объяснение:
№5
Операционная система изображена на первой картинке (Windows 7)
№6
1) Управление устройствами компьютера (ресурсами)
2) Ведение файловой структуры.
3) Пользовательский интерфейс, т.е. диалог с пользователем.
№7
Не могу разобрать сообщение (низкое качество фотографии)
№8
Wi-Fi
Bluetooth
USB
№9
Мобильность (удобство в использовании)
Легкость создания и расширения сети
№10
ИК-порт: телефон - компьютер
Bluetooth: беспроводные наушники\колонка - телефон
Пиктограмма - знак, выражающий главные черты объекта.
Удачи)