1 совокупность программных и лингвистических средств общего или специального назначения
Var t1,t2:text; s:string; n:integer;
begin
assign(t1,'t1.txt'); reset(t1);
assign(t2,'t2.txt'); rewrite(t2);
n:=0;
while not eof(t1) do begin
readln(t1,s);
n:=n+1;
writeln(t2,n:5,' ',s);
end;
close(t1); close(t2);
<span>end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
Writeln(4 * a.ColCount * '-');
var nCol := ReadInteger('В каком столбце ищем?');
var C := ReadInteger('На кратность чему проверить?');
if a.Col(nCol - 1).Any(t -> t mod C = 0) then
Writeln('Есть такие элементы')
else Writeln('Таких элементов нет')
end.
223 в восьмеричной =337 в десятичной
Var a,b: array [0..100] of integer;
i, j, s,k,max: integer;
begin
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
(A[k]):= random(90)+78;
write((A[k]:4));
if max < a[k] then begin max:=a[k];s:=k; end;
END;
write('A[' + s +'] =':8, max:4 );B[s]:=max;
writeln;
s:=0;max:=0;
END;
writeln;k:=0;
FOR I:= 1 TO 5 do begin
FOR J:=1 TO 20 do begin
k:=k +1;
if b[k] > 0 then (b[k]):= random(90)+78; //забег номеров победителей
if max < b[k] then begin max:=b[k];s:=k; end; //победитель среди
победителей
write((b[k]:4));
END;
writeln;
END;
write('A[' + s +'] =':8, max:4 );
end.
только мало что осталось от той программы много
ошибок Главная n нельзя в константы она не будет делиться и т.д.