<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var t:=Readinteger('T=');
Writeln('S=',a.Where(p->p>t).Sum)
end.
<u>Пример</u>
n= 15
13 20 41 -5 -41 4 -2 -30 21 3 -35 23 -27 -25 41
T= 12
S=159
#include<stdio.h>
#include<conio.h>
double A,B;
main()
{
printf("Vvdedite 4isla A i B\n");
scanf("\%d",&A);
scanf("\%d",&B);
if (A>B)
{
printf("\%d",B);
printf(" , ");
printf("\%d",A);
}
else
{
printf("\%d",A);
printf(" , ");
printf("\%d",B);
}
getch();
}<span>
</span>
У Ани синяя,у маши белая, у Вари красная
1. включить праграмму Tux Paint
2. найти в левом верхнем углу значек "шаблоны"
3. нажать на значек шаблоны .
4. выбрать понравившийся шаблон.
5. отрегулировать размер в правом нижнем углу
6. нажать на фон .
7. рисунок готов