1. задано некоторое натуральное число n. составить алгоритм s=1+2+3+…+n 2. подсчитать количество отрицательных элементов в каждой строке матрицы размером мхn.

// PascalABC.NET 3.2, сборка 1478 от 10.06.2017
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=ReadInteger('n=');
  Writeln('S=',n*(n+1) div 2)
end.

Пример
n= 15373
S=118172251

№2

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Количество отрицательных элементов построчно:');
  a.Rows.Select(r->r.Where(x->x<0).Count).Println
end.

Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5,8] ***
  88  43  64  50 -27  -9  48  55
   1  40 -39 -99 -45 -54  17 -77
 -33  99 -38 -19 -93  18 -19 -24
  17   4 -36  90  98  69  68  35
 -35  18  85  54 -74 -69  14 -62

Количество отрицательных элементов построчно:
2 5 6 1 4

1)

Var
   S:real;
   N:longint;
Begin
Write('n = ');
Read(n);
S:=0;
For n:= 1 to n do
    S:=S+n;
WriteLn('S = ',S);
End.

2)

Вариант первый:

Var
   A:array[1..10000,1..10000] of shortint;
   M,N,j,k:word;
Begin
Randomize;
Write('M = ');ReadLn(M);
Write('N = ');ReadLn(N);
WriteLn('Исходная матрица:');
For M:= 1 to M do
    Begin
    k:=0;
    For j:= 1 to N-1 do
        Begin
        A[M,j]:=random(21)-10;
        Write(A[M,j]:3,' ');
        if A[M,j] < 0 then k:=k+1
        End;
    A[M,j]:=random(21)-10;
    Write(A[M,j]:3);
    if A[M,j] < 0 then k:=k+1;
    WriteLn(', k = ',k)
    End;
End.

Вариант второй:

uses Crt;
///На всех версиях, кроме PascalABC.NET эту процедуру следует удалить
procedure Window(x, y, w, h: integer);
begin
  System.Console.WindowLeft:=x;
  System.Console.WindowTop:=y;
  System.Console.WindowWidth:=w;
  System.Console.WindowHeight:=h;
end;
Var
   A:array[1..13,1..13] of integer;
   N,M,i,j,t,o,k:integer;
Begin
Randomize;
TextBackGround(15);
TextColor(0);
Repeat
N:=random(13)+1;
M:=random(13)+1;
t:=3000 div (N*M);
if frac(Ln(N*M)/Ln(10)) = 0 then o:=1+Trunc(Ln(N*M)/Ln(10))
else o:=2+Trunc(Ln(N*M)/Ln(10));
Window(0,0,90,25);
ClrScr;
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        A[i,j]:=random(N*M*2+1)-(N*M);
        Delay(t);
        Write(A[i,j]:o,' ')
        End;
    WriteLn;
    End;
TextBackGround(10);
For i:= 1 to N do
    Begin
    k:=0;
    For j:= 1 to M do
        Begin
        if A[i,j] < 0 then
           Begin
           TextBackGround(14);
           GotoXY(j*(o+1)-o,i);
           Write(A[i,j]:o,' ');
           TextBackGround(10);
           k:=k+1
           End
        else
           Begin
           GotoXY(j*(o+1)-o,i);
           Write(A[i,j]:o,' ');
           End;
        Delay(t);
        End;
        TextBackGround(12);
        GotoXY(j*(o+1),i);
        Write(', k = ',k);
        TextBackGround(10);
    End;
TextBackGround(15);
GotoXY(1,N+1);
Write('1 - повторить, 0 - Выйти.');
Until ReadKey = '0'
End.

Var a1,a2,a3,a4,a5,a6,a7,a8,k:integer;
begin
k:=0;
read (a1,a2,a3,a4,a5,a6,a7,a8);
if (a1>0) and (a2>0) and (a3>0) and (a4>0) and (a5>0) and (a6>0) and (a7>0) and (a8>0) then
begin
if (a1 mod 3 = 0) and (a1 mod 10 = 4) then k:=k+1;
if (a2 mod 3 = 0) and (a2 mod 10 = 4) then k:=k+1;
if (a3 mod 3 = 0) and (a3 mod 10 = 4) then k:=k+1;
if (a4 mod 3 = 0) and (a4 mod 10 = 4) then k:=k+1;
if (a5 mod 3 = 0) and (a5 mod 10 = 4) then k:=k+1;
if (a6 mod 3 = 0) and (a6 mod 10 = 4) then k:=k+1;
if (a7 mod 3 = 0) and (a7 mod 10 = 4) then k:=k+1;
if (a8 mod 3 = 0) and (a8 mod 10 = 4) then k:=k+1;
writeln (k);
end else
writeln ('Неверный ввод');
end.

Средства и технологии мультимедиа обеспечивают возможность интенсификации школьного обучения и повышение мотивации школьников к учению за счет применения современных обработки аудиовизуальной информации, таких, как:

а) манипулирование» (наложение, перемещение) визуальной информацией;

б) контаминация (смешение) различной аудиовизуальной информации;

в) реализация анимационных эффектов;

г) деформирование визуальной информации (увеличение или уменьшение определенного линейного параметра, растягивание или сжатие изображения);

д) дискретная подача аудиовизуальной информации;

е) тонирование изображения;

ж) фиксирование выбранной части визуальной информации для ее последующего перемещения или рассмотрения «под лупой»;

с) многооконное представление аудиовизуальной информации на одном экране с возможностью активизировать любую часть экрана (например, в одном «окне» — видеофильм, в другом — текст);

и) демонстрация реальных процессов, событий в реальном времени (видеофильм).

При использовании средств мультимедиа в обучении школьников существенно возрастает роль иллюстраций. Иллюстрация также является многозначным термином. Существует два основных толкования этого термина. Иллюстрация — это:

а) введение в текст поясняющей или доповнювальної информации другого типа (изображения и звука),

б) приведение примеров (возможно и без использования информации других типов) для наглядного и убедительного объяснения.

Оба толкования термина «иллюстрация» в равной степени касаются как обычных бумажных учебников и учебных пособий, так и современных мультимедийных средств. К тому же, необходимость иллюстрирования приводит к тому, что теперь все средства информатизации обучения должны быть ис-ристані для наглядного, убедительного объяснения главных, наиболее сложных моментов учебного материала.

В мультимедиа-средств иллюстрации могут быть представлены в виде примеров (в том числе и текстовых), двухмерных и трехмерных графических изображений (рисунков, фотографий, схем, графиков, диаграмм), звуковых фраг-ментов, анимации, видеофрагментов. Появление нового взгляда на иллюстрации вовсе не означает полного отказа от прежних подходов, использо-вались при издании традиционных школьных учебников.

Мультимедиа является эффективной образовательной технологией благодаря присущим ей интерактивности, гибкости и интеграции различных типов информации, а также благодаря возможности учитывать индивидуальные особенности учащихся и повышению их мотивации. За счет этого, большинство педагогов могут использовать мультимедиа как основу своей деятельности по информатизации процесса обучения.

Информатизация образования является областью научно-практической деятельности человека, направленной на применение технологий и средств сбора, хранения, обработки и распространения информации, обеспечивающей систематизацию знаний, формирование новых знаний в сфере образования для достижения психолого - педагогических целей обучения и воспитания.

Интерактивность средств информатизации образования означает, что пользователям, как правило, школьникам и учителям, предоставляется возможность активного взаимодействия с этими средствами. Интерактивность означает наличие условий для учебного диалога, одним из участников которого является средство информатизации образования.

Наличие интерактивности является одним из наиболее значимых преимуществ мультфи - тимедіа-средств. Интерактивность позволяет в определенных пределах управлять пред-отношением информации: школьники могут индивидуально менять настройки, изучать результаты, а также отвечать на запросы программы о конкретных предпочтениях пользователя. Ученики могут устанавливать скорость подачи материала, число повторений и другие параметры, удовлетворяющие индивидуальные образовательные потребности. Это позволяет сделать вывод о гибкости мульти - медиа-технологий.

Если Поставь

ЛАЙК)