Const
n=6; //размерность массива
Var
ar:array[1..n] of integer;
i,min,b:integer;
begin
min:=2147483647; //верхняя граница типа integer
b:=0; //проверка на наличие минимума - ложь
for i:=1 to n do
begin
readln(ar[i]);
if (i mod 2=0) and (ar[i]>0) and (ar[i]<min) then {если индекс чётный, элемент положительный и меньше минимума}
begin
min:=ar[i]; //заменяем минимум элементом
b:=1; //проверка на наличие минимума - правда
end;
end;
if b=0 then writeln('Нет') else writeln(min); {если проверка-ложь, то нет минимума, иначе выводим минимум}
end.
/*Я, конечно, не тру физик, но пройденный телом путь вычисляется не так*/
//Pascal ABC.NET 3.2 сборка 1318
Const
g=9.832;
Var
h:real;
i:integer;
begin
readln(h);
for i:=1 to 2 do
writeln(h+(g*sqr(i))/2); //если что, поправите
end.
Пример ввода:
2
Пример вывода:
6.916
21.664
А) информацию из разных учебников пишешь в один конспект
б) копирование на флешку
в) восприятие информации органами чувств и ее обработка мозгом
г) разговор
д) краткий пересказ
е) <span>сидишь на уроке и принимаешь информацию от учителя в своей голове
ж) пишешь книгу
з) сжигаешь газету
и) учишь стих
к) систематизация по категориям
л) подсчет слов в предложении
м) любой поиск в поисковой системе</span>
<u>Microsoft QBasic 1.0</u>
INPUT a, b
PRINT a + b, a ^ 2 - b ^ 2, a / b
INPUT a
x = .7
PRINT (11 * x - 7 * a) / SQR(14)
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a,b:real;
Read(a,b);
Writeln(a+b,' ',a*a-b*b,' ',a/b)
end.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ReadReal;
var x:=0.7;
Writeln((11*x-7*a)/sqrt(14))
end.
