Var mas:array[1..15] of integer; a,c:integer; begin c:=0; for a:=1 to 15 do begin writeln('Введите число:1'); readln(mas[a]); c:=c+mas[a]; end; writeln('Среднее=',c/a); end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var m,n:integer; Write('Количество строк и столбцов матрицы: '); Read(n,m); var a:=MatrixRandom(n,m,10,99); for var i:=0 to n-1 do begin for var j:=0 to m-1 do Print(a[i,j]); Writeln end; var p:=ReadInteger('Введите число Р:'); var b:array of integer; SetLength(b,4*m); var k:=0; for var i:=n-p to n-1 do for var j:=0 to m-1 do if a[i,j] mod 4=0 then begin b[k]:=a[i,j]; Inc(k) end; SetLength(b,k); b.Print end.
1. обратись на сайт разработчика, спроси их ли эта программа, попробуй понажимать на все функции в пиратке они явно будут не все работать. 2.Если ты купила программу в обычном браузере, можешь не беспокоиться, все не законные программы удаляют, но если ты зашёл через так называемый "Tor" то уже можешь задуматься легальна ли она, ну а также можно просто посмотреть на функционал программы если там есть что-то типо "Взломать пароль" естественно это не законно. 3.обратись на сайт разработчика, спроси их ли эта программа, попробуй понажимать на все функции в пиратке они явно будут не все работать.
mas:array[1..15] of integer;
a,c:integer;
begin
c:=0;
for a:=1 to 15 do
begin
writeln('Введите число:1');
readln(mas[a]);
c:=c+mas[a];
end;
writeln('Среднее=',c/a);
end.