да можно (точно не скажу как), но там вроде через переходник все делается на компьютере
var
a: array [1..5, 1..4] of integer;
min, max: integer;
i, j: integer;
begin
min:= 100;
max:= 1;
write('Исходный массив: ');
for i:= 1 to 5 do
for j:= 1 to 4 do
begin
a[i, j]:= random(99) + 1;
write(a[i, j], ' ');
if a[i, j] < min then min:= a[i, j];
if a[i, j] > max then max:= a[i, j];
end;
writeln;
writeln('Разность максимального и минимального элемента массива равна: ', max - min);
end.
Если что не понятно - спрашивай.
Var
a,d,i:integer;
begin
readln(a,d);
for i:=1 to 8 do
begin
writeln('in ',i,' hour = ',a);
a:=a+d;
end;
end;
PascalABC.NET
Программа сработает некорректно если слова будут разделены несколькими пробелами или строка будет заканчиваться пробелом
const c = ' ';
var
s : string;
k,p : integer;
begin
writeln ('Введите строку');
readln (s);
k := -1;
p := 1;
if (s <> '') and (s <> ' ') then
begin
while p <> 0 do
begin
k := k +1;
p := PosEx (c,s,p+1);
end;
writeln (k+1,' word')
end
else
writeln ('error string');<span>
end.</span>