Uses crt;
const Z=5;
var a:array [1..Z] of real;
x,k,n:integer;
begin
for x:=1 to Z do
begin
readln(a[x]);
if (x mod 2=1) and (a[x]>0) then inc(k);
if (x mod 2=1) and (a[x]<0) then inc(n);
end;
writeln('Положительных: ',k);
writeln('Отрицательных: ',n);
<span>end.</span>
СУММ=<u>D2+D3+D4</u>=16;
СРЗНАЧ=(D1+<u>D2+D3+D4</u>)/4=5; (D1+16)/4=5; D1=20-16;<em> D1=4</em>
муха, мура, тура, тара, пара, парк, паук, паут, плут, плот, слот,слон
План урока:
Организационный момент.
Сообщение плана (темы и постановка цели) урока
Изучение нового материала с использованием презентационного оборудования
Закрепление нового материала (Практическая работа)
наверное так
Program SandP; //Название программы
var //Описание переменных
x,y: real; // Стороны прямоугольника
S: real; // Площадь прямоугольника
P: real; // Периметр прямоугольника
<span>procedure RectSP<span>(a,b: real; var S,P:real)</span>;</span> //Процедура
begin
S := a * b; //Нахождение площади
P := a + b; //Нахождение суммы
end;
begin //Начало основной части программы
writeln('Введите стороны прямоугольника: '); //Диалог с пользователем
readln(x,y); //Считывание сторон
RectSP(x,y,S,P); //Вызов процедуры
writeln('Площадь равна ',S); //Вывод площади
writeln('Периметр равен ',P); //Вывод периметра
end. <span>//Конец программы</span>