Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer
d : array[1..30] of real;
begin
write ('введите разметность массива n=');
readln(n);
writeln(''введите элементы массива d: ');
for i: =1 to n do
readln(d[i]);
writeln ('исходный массив d: ');
write(d[i]);
if d[i] mod 3 = 0 then d[i]: = 2 * d[i];
writeln ('полученный массив d: ');
readln
end.
думаю так1) налить в кувшин 3 л, перелить в емкость,где будет 7 л
2) еще раз налить туда 3 л
3) налить 3 л воды налить в кувшин для 8 л, потом еще раз для 8 литров и еще раз(3 раза) на третьем разе останется 1 л,этот л и доливаем в кувшин с 7 л
var a: array [1..10] of integer;
s,i,c,b: integer;
read(c,b,n);
randomize;
for i : = 1 to n do
a[i]: = random(b) -c+1;
for i: = 1 to n do
if i mod 2 = 0 then s: =s+1;
writeln(s);
var x1,x2,x3,x4: integer;
function max(a,b: integer): integer
if a> b then max: = a
else max: =b;
end;
read(x1,x2,x3,x4);
x1: =max(x1,x2);
x2: =max(x3,x4);
writeln(x1);
Популярные вопросы