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.
1. Использовать ковычки другого типа при форматировании строки:
<span>print('Сегодня на завтрак "%s" ' % input()) # тут я использовал одинарные вместо двойных
2. Использовать обратный слэш (escape character) перед ковычками внутри ковычек, чтобы они распознавались парсером как часть строки:
</span><span>print("Сегодня на завтрак \"%s\"" % input()) </span><span>
</span>
Нужно только загрузить в Фотошоп и сделать векторизацию!
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var n:=ReadInteger('n=');
Writeln(1.To((n+10) div 2).JoinIntoString('')[n]);
end.
Типа такого?
Текстовый Алгоритм:
1) Взять карандаш.
2) Выбрать плотную бумагу.
3) Положить бумагу на стол.
4) Нарисовать зарисовкку.
5) Закрасить зарисовку цветными карандашами.
Графический алгоритм:
Начало
1. Взять.
2. Выбрать
3. Положить
4. Нарисовать
5. Закрасить.
