Ответ:
Это элементарно
var i,n,sum:integer;
Const w=10000;
a:array[1..w] of integer;
begin;
writeln('Введите кол-во элементов в массиве');
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
if (a[i] mod 2<>0) and (i mod 2 = 0) then
inc (sum);
end;
writeln(sum)
end.
Const
maxN = 100; // Максимальное кол-во элементов массива
var
n, i: longint;
middle, sum, sum2: real; // Может быть нецелым числом
a: array[1..maxN] of real;
begin
write('Введите количество элементов массива: ');
readln(n);
sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое
write('Введите элементы массива через пробел: ');
for i := 1 to n do begin
read(a[i]);
sum := sum + a[i];
end;
middle := sum / n; // Вычисляем среднее арифметическое
writeln('Среднее арифметическое = ', middle);
sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического
for i := 1 to n do
if a[i] < middle then
sum2 := sum2 + a[i];
writeln('Сумма элементов, меньших среднего арифметического = ', sum2);
end.
Информацию мы получаем по связи , по телефону от друзей,и из интерната
Ответ:
Установить программу на данную учётную запись, либо перенести ярлык и программу обратно.
Сумма,произведение и по отдельности единицы, десятки и сотни
program A1;
Var a, d, b, c,r,t:Integer;
begin
Write(' введите трех значное число ' ) ;Read(a);
d:=a div 100;
c:=a mod 100;
c:=c div 10;
b:=a mod 100;
b:=b mod 10;
t:=d+c+b;
r:=d*c*b;
WriteLn(' число единиц = ', b);
WriteLn(' число десятков = ', c);
WriteLn(' число сотый = ', d);
WriteLn(' сумма его цифр = ', t);
WriteLn(' произведение его цифр = ', r);
end.
Площадь и периметр
program f33;
Var a, b, P, S:Real;
begin
Write('а = '); Read(a);
Write('b = ') ;Read(b);
S:=a*b;
P:=(a+b)*2;
WriteLn('S = ', S);
WriteLn('P = ', P);
end.