Var
a: array[1..10, 1..10] of integer;
i, j, k: integer;
begin
k := 1;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
if(j >= i) then begin
a[i, j] := k;
k += 1;
end
else a[i, j] := 0;
write(a[i, j]:3);
end;
k := 1;
writeln();
end;
<span>end.</span>
Лепи из пластилина
потом попробуй по макету сделать из того материала из которого надо.
1)
program gt;
var s,n,a,i:integer;
begin
read(n)
s:=0;
randomize;
for i:=1 to n do
begin
a:=random(100);
s:=s+a;
end;
writeln(s);
end.
2)
можно сделать с файлом
assign...
reset...
rewrite...
while not eof(..) do
begin
read(..,a);
s:=s+a;
end;
writeln(...,s);
close(..)
close(..);
end.
Ответ:
использовать Чертежник
алг
нач
цел й,ц
нц для й от 1 до 2
нц для ц от 1 до 4
опустить перо
сместиться на вектор (0,ц)
сместиться на вектор (ц,0)
сместиться на вектор (0,-ц)
сместиться на вектор (-ц,0)
поднять перо
сместиться на вектор (ц+1,0)
кц
сместиться в точку (0,-5)
кц
кон
Объяснение:
Смотри картинку
===== PascalABC.NET =====
begin
var A := ReadArrInteger('Введите 8 целых чисел:', 8);
A.Println;
var B := ArrGen(8, i -> i * i, 1);
B.Println;
var C := ArrRandom(8, -99, 99);
C.Println;
end.
Примечание: Если все три массива надо вывести в одну строку, вместо A.Println и B.Println указать A.Print и B.Print
