Дано целое число. Если оно является положительным, то вычесть из него 2; в противном случае прибавить к нему 5. Вывести полученное число. Pr1;
var
N : ;
begin
Write('Введите целое число: ');
(N);
if N>0 then N:= N -2
else N:= ;
writeln(N);
end.
2. Ввести с клавиатуры количество , для того чтобы программа выставила отметку. (50-70 – отметка 3; 71-84 – отметка 4; 85-10 – отметка 5).
program ___;
var N : Integer;
Write('Введите количество : ');
Readln(N);
if () and (N =71) and (N __ then k:=k+1;
if N2>__ then ;
if N3>__ then k:=k+1;
writeln(__);
end.
2. Память
2.1. Оперативная память
2.2. Долговременная память
2.2.1. Жесткий магнитный диск
2.2.2. Дискета
2.2.3. Флэш-память
2.2.4. Оптические диски
2.2.4.1. CD
2.2.4.2. DVD
3. Устройства ввода
3.1. Клавиатура
3.2. Мышь
3.3. Сканер
3.4. Графический планшет
3.5.Цифровая камера
3.6. Микрофон
3.7. Джойстик
4. Устройства вывода
4.1. Монитор
4.1.1. Жидкокристаллический монитор
4.1.2. Монитор на электронно-лучевой трубке
4.2. Принтер
4.2.1. Матричный принтер
4.2.2. Струйный принтер
4.2.3. Лазерный принтер
Program nnatovna;
uses crt;
const n=13;
var
a:array [1..n] of integer;
i,min,max,temp:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
randomize;
writeln('Элементы массива:');
{создание и вывод массива}
for i:=1 to n do
begin
a[i]:=random(100)-50;
write (a[i]:5);
end;
{ищем номера мин и мах}
min:=1;
max:=1;
for i:=1 to n do
begin
if a[min]>a[i] then min:=i;
if a[max]<a[i] then max:=i;
end;
{меняем местами мин и мах элементы}
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
{вывод результата}
writeln();
writeln('Результат:');
for i:=1 to n do
write(a[i]:5);
end.