Ввести с клавиатуры три числа (положительных и отрицательных). Положительные возвести в куб, отрицательные заменить на ноль.
ВР
х
M DOSBox 0.72. Cpu Cycles: max Frameskip 0. Program:
Введите три числа
3-25
27
о
125
Из трех данных чисел вывести наибольшее и наименьшее.
—
х
DOSBox 0.72. Cpu Cycles max Frameskip 0. Program: BP
Введите три числа
5 8 3
наибольшее 8
наименьшее 3​

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)