===== PascalABC.NET =====
begin
var x := ArrRandom(20, -99, 99);
x.Println;
var (imax, imin) := (x.IndexMax, x.IndexMin);
var t := (x.First + x.Last) div 2;
(x[imax], x[imin]) := (t, t);
x.Println;
x.Sum.Print
end.
Var a: array [1..50] of integer ;
d:integer;
begin
write ('Введите первый член a1 = ');
read(a[1]);
write('Разность d = ');
read(d);
writeln(a[1]);
for var i:=2 to 50 do begin
a[i]:=a[1]+d*(i-1);
writeln(a[i]);
end;
end.
Программа на снимке, чтобы определить целое число от деление нужно использовать div
Название предмета: книжка.
Какую информацию несёт: она несёт много информации. Во-первых, это физическое тело, которое имеет прямоугольную форму, созданная из жёсткого материала. Запаха книга не имеет, звука не издает.
Эту информацию мне помогли определить органы чувств: зрения, осязания, слуха, обоняния.