В) одним байтом; или я что то не поняла!
Uses crt;
var e:array[1..3,1..7] of integer;
s,max,n,m:integer;
index,sum:integer;
<span>procedure max_el;</span>
begin
max:=e[1,1];
sum:=0;
index:=0;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
if e[n,m]>max then
begin
max:=e[n,m];
index:=m;
end;
end;
end;
for n:=1 to 3 do
begin
if e[n,index]<0 then
begin
sum:=sum+e[n,index];
end;
end;
writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum);
end;
begin
clrscr;
writeln('elementy massiva');
writeln;
randomize;
for n:=1 to 3 do
begin
for m:=1 to 7 do
begin
e[n,m]:=random(100) -50;
write('',e[n,m],' ');
end;
writeln;
end;
writeln;
writeln;
max_el;
readkey;
end<span>.</span>
Ответ:
Объяснение:
Program n1;
var x, y: longint;
begin
writeln('Введите x');
readln(x);
if (x<=10) and (x>=-10) then y:=7*x else y:=x+5;
writeln('y = ', y);
readln;
end.
Ответ:
Объяснение:
Var
n,sum,n1,n2,n3:integer;
Begin
Write('Введите 3х значное число: ');
Readln(n);
n1:=n div 101;
n2:=(n div 10) mod 10;
if n2>n1 then writeln('2 число больше первого') else
writeln('1 число больше второго');
end.
Тема моего проекта "Видеокарта". Я выбрал эту тему, потому что я считаю, что это является острой темой при сборке ПК. Цель моей работы - рассказать, как правильно выбрать видеокарту и как за ней ухаживать. Проектным продуктом будет - корпус ПК. Этот продукт поможет достичь цель проекта, так как он поможет наглядно показать, какую важнейшую роль играет видеокарта. Я начал свою работу с того, что рассказал подробно о видеокарте, из чего она состоит. Потом я приступил к рассказу инструкции о правильной установке видеокарты в ПК и установке драйверов на видеокарту. Я завершил работу тем, что рассказал, как выбрать правильную видеокарту перед покупкой в магазине. Работа над проектом показала мне, что видеокарта - крайне важный элемент в ПК.