Пример в Excel. лист защищен без пароля, чтобы не испортить формулы. Программа работает от 0 до 255 числа. Для перевода достаточно разделить, отбросив дробную часть и затем выписать результат в обратном порядке.
program raf105;
const
n = 35;
var
a: array[1..30] of integer;
b: array[1..40] of integer;
c: array[1..n] of integer;
i : integer;
begin
writeln('Заполните массив A');
for i:=1 to 30 do
readln(a[i]);
writeln('Заполните массив B');
for i:=1 to 40 do
readln(b[i]);
writeln('Заполните массив C');
for i:=1 to n do
readln(c[i]);
for i:=1 to 40 do
begin
if (a[i] < 0) or (b[i] < 0) then
begin
writeln('Нет');
break
end;
if c[i] < 0 then
begin
writeln('Да');
break
end;
end;
end.
<h3>PascalABC</h3>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal('Вводите:', ReadInteger('Количество чисел?'));
var imax := a.IndexMax;
Writeln('Первое максимальное число ', a[imax],
' имеет номер ', imax + 1)
end.
<h2>Пример</h2><h3>Количество чисел? 5</h3><h3>Вводите: 14 2.17 15.2 8 15.2</h3><h3>Первое максимальное число 15.2 имеет номер 3</h3>
Посмотри, такой?
program z1;
uses GraphABC;
begin
line (100,100,200,100);
line (200,100,200,200);
line (200,200,100,200);
line(100,200,100,100);
line (150,50,250,50);
line(250,50,250,150);
line(250,150,150,150);
line(150,150,150,50);
line(100,100,150,50);
line(200,100,250,50);
line(100,200,150,150);
line(200,200,250,150);
<span>end.
</span>
<span>Одновременно для всех слайдов можно изменять дизайн: шрифт, фон, цвета, визуальные эффекты при показе, масштаб и др., для чего? Для удобства...</span>