В D1 пиши: $A1+B$1+C$1 в низ по аналогии
var n,i,a,s:integer;
begin
write('n = ');
readln(n);
s:=0;
writeln('Введите ',n,' натуральных чисел');
for i:=1 to n do
begin
read(a);
if a div 100=4 then s:=s+a;
end;
writeln('s = ',s);
end.
Пример
n = 5
Введите 5 натуральных чисел
123 456 4321 45 401
s = 857
М<span>одель по сравнению с моделируем объектом содержит меньше информации</span>
Int c[6][6], p[2], index, buff;
p[0] = 0;
//заполняем массив рандомными числами от 0 до 10
for (int i = 0; i < 6; i++)
{
for (int j = 0; j < 6; j++)
{
c[i][j] = 0 + rand()%10; //заполнил рандомными числам от 0 до 10
}
}
//теперь проходим массив по столбцам и просчитываем их произведение
for (int j = 0; j < 6; j++)
{
for (int i = 0; i < 6; i++)
{
p[1] *= c[i][j]; //произведение столбца
}
//проверяем если произведение предыдущего столбца меньше
//то мы записываем индекс большего столбца
if (p[0] < p[1])
{
p[0] = p[1];
index = j;
}
}
//и собственно меняем наши столбцы местами
for (int i = 0; i < 6; i++)
{
buff = c[i][0];
c[i][0] = c[i][index];
c[i][index] = buff;
}
дальше с выводом и библиотеками думаю сам разберешься
4.
Обычный
Курсив
Полужирный
Полужирный курсив
Вообще это не информатика, а математика эдак класса 2.