Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x : array [1..15] of integer;
i : integer;
min : integer;
kol_nol : integer;
begin
kol_nol : = 0;
for i: =1 to 15 do
write ("введите элемент массива: ");
readln(x[i]);
end;
min : = x[1];
for i : = 0 to 15 do
if (x[i] > 0) then
if (x[i] < min) then
min : = x[i];
if (x[i] = 0) then
inc(kol_nol);
writeln(min);
writeln(kol_nol);
v=331+ 0,6*t
в зимний день- v=331+ 0.6*(-35)=310 м/с
в летний день- v=331+ 0.6*30=349 м/с
read(n);
s = str(n);
n1 : = int(s[1]);
n2 : = int(s[2]);
n3 : = int(s[3]);
if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")
7 - диск, винт, сиди
9 пробел
10 импорт
11 окно
12ввод
15 стэк ?
16граф
18свич
20тэг
Популярные вопросы