Program E04;
uses crt;
var
n,i,k,f: integer;
X: array[1..50] of real;
Max,S: real;
begin
clrscr;
writeln('Введите размерность: ');
readln(n);
writeln('Введите массив: ');
for i:=1 to n do
begin
write('X[',i:2,'] ==> ');
readln(X[i])
end;
writeln('Исходный массив: ');
for i:=1 to n do
write(X[i],' ');
writeln;
Max:=abs(X[1]);
for i:=1 to n do
if Max <= abs(X[i]) then
Max:=abs(X[i]);
writeln('Максимальный элемент по модулю: ',Max);
i:=1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
k:=i;
i:=i+1;
while (i <= n) and (X[i] <= 0) do
i:=i+1;
if i > n then
writeln ('folse')
else
begin
f:=i;
for i := k + 1 to f - 1 do
S:=S+X[i];
writeln('Сумма: ',S:5:2);
end;
end;
end.
1)
цел a, b, c
алг
нач
ввод a,b,c
если mod(a+b,2)=0 то
вывод (a+b)/c
иначе
вывод (a+b)*c
все
кон
2)
цел a,d1,d2
алг
нач
ввод a
если (a>9) и (a<99) то
d1:=div(a,10);
d2:=mod(a,10);
вывод d1*d2
вывод' '
вывод d1+d2
вывод' '
вывод d1-d2
иначе
вывод 'ошибка'
все
кон
Var x,y:integer;
begin
x:=2;
y:=3;
writeln(x,'+',y,'=',x+y);
<span>end.</span>
===== PascalABC.NET =====
begin
var Y := ReadInteger('Y =');
if Y in Range(10, 99) then
Println(Y + 18)
end.
8) Свиток
9)
Понятие :
-Логически оформленная мысль об общих существенных свойствах, связях и отношениях предметов или явлений объективной действительности.
-Представление о чем-л., осведомленность в чем-л.; знание, понимание чего-л.
-разг. Мнение о ком-л., чем-л.
Оценка кого-л., чего-л.
Слово - это единица речи, служащая для выражения отдельного понятия.
Термин- Слово или словосочетание, являющееся названием определённого понятия какой-н. специальной области науки, техники, искусства.
