1)
var a:array [1..10] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a[i]:=random(100)-50;
write (a[i],' ');
if a[i] < 0 then sum:=sum+a[i];
end;
writeln;
writeln ('Summa: ',sum);
readln;
end.
2)
var a:array [1..10] of integer;
i,max,index:integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
max:=a[1];
index:=1;
for i:=2 to 10 do
if a[i] > max then
begin
max:=a[i];
index:=i;
end;
writeln ('Max: ',max,'.Index: ',index);
readln;
end.
3)
var a:array [1..10] of integer;
max,min,i,temp:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(50);
write (a[i],' ');
end;
writeln;
max:=1;
min:=1;
for i:=2 to 10 do
if a[i] > a[max] then max:=i else
if a[i] < min then min:=i;
writeln ('Max: ',a[max]);
writeln ('Min: ',a[min]);
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
for i:=1 to 10 do write (a[i],' ');
end.
Program enot;
VAR p: array [1..7,1..9] of integer;
i,j,s:integer;
begin
s:=0;
for i:= 1 to 7 do
for j:= 1 to 9
do p[i,j]:= random (61)-25;
for i:= 1 to 7 do
begin
for j:= 1 to 9 do
begin
if p[i,j]<0 then s:=s+p[i,j];
write(p[i,j]:5);
end;
writeln();
end;
writeln(s);
<span>end.</span>
Program Qwerty123777;
uses crt;
var
x,y:real;
begin
writeln('*** Alphaeus is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа находит значение функции y=(2x-4)/(3xx+11)');
write('Введите значение х '); readln (x);
y:=(2*x-4)/(3*x*x+11);
writeln('*** Вычисляю... ***');
writeln('y=', y:8:2); ;
end.
Вот алгоритм, рисующий все цифры, включая ноль (если он не нужен, удалите строки этого блока).
Для каждой цифры выделен блок строк, которые её рисуют.
Блоки можно копировать, переставлять и комбинировать в любом порядке, при этом выбранные цифры будут аккуратно рисоваться друг за другом.
использовать Чертежник
алг
нач
поднять перо
сместиться на вектор (-9,0) |начальная позиция
опустить перо |0
сместиться на вектор (1,0)
сместиться на вектор (0,2)
сместиться на вектор (-1,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (2,0)
сместиться на вектор (0,1) |1
опустить перо
сместиться на вектор (1,1)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
сместиться на вектор (0,2) |2
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,0)
опустить перо |3
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,-2)
сместиться на вектор (0,2) |4
опустить перо
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо |5
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (0,1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-2)
опустить перо |6
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (0,2)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-2)
сместиться на вектор (0,2) |7
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (1,0)
опустить перо |8
сместиться на вектор (0,2)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (2,0)
опустить перо |9
сместиться на вектор (1,0)
сместиться на вектор (0,2)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
поднять перо
сместиться на вектор (1,-1)
кон
