Нужен код дано: страна, население и площадь найти: 1) среди стран, не содержащих буквы т и м и их макс площадь 2) среди всех стран найти страны, у которых кол-во населения максимальное 3) и найти страны население которых меньше среднего
Если я понял о чем ты, то вот: var x, y, b: integer; // описание переменных
begin // начало программы write ('y = x*b '); read(x,b); // ввод переменной x,b
if x > 0 // проверка, х больше от 0? then y := y * b // если да, то исполняется это else if x = 0 then //если нет, то это(тут опять же проверка, х равно 0?) y := 0 // если да то "y" присваивается 0 else y := abs(x); // если нет то "y" присваивается значение модуль "х"
PascalABC.NET Версия 3.3. сборка 1583 (25.11.2017)
var n:integer; a:array[1..100] of integer; begin write('Введите размер массива (n<100): ');readln(n); var max:=0; var min:=101; for var i:=1 to n do begin a[i]:=random(0,100); write(a[i],' '); if i mod 2=0 then if a[i]>max then max:=a[i] else if a[i]<min then min:=a[i]; end; writeln; writeln('Максимальный - ',max); writeln('Минимальный - ',min); readln; end.
var
x, y, b: integer; // описание переменных
begin // начало программы
write ('y = x*b ');
read(x,b); // ввод переменной x,b
if x > 0 // проверка, х больше от 0?
then
y := y * b // если да, то исполняется это
else
if x = 0 then //если нет, то это(тут опять же проверка, х равно 0?)
y := 0 // если да то "y" присваивается 0
else
y := abs(x); // если нет то "y" присваивается значение модуль "х"
writeln ('y = ', y); // выводятся значения,
end. // завершение программы