Написать программу на паскале по : сформировать двумерный массив b размером 4 x 4 (4 – количество строк; 4 – количество столбцов) с генератора случайных чисел и вывести элементы массива на экран и в файл. вычислить и вывести на экран и в файл строку матрицы b, содержащую максимальное количество отрицательных элементов (оформить вычисление количества отрицательных элементов в виде функции сделал пока что первую часть, не знаю как дальше: var ar: array[1..4, 1..4] of integer; i, j: byte; f: text; begin assign(f, 'mas.txt'); rewrite(f); randomize; for i: =1 to 4 do begin for j: =1 to 4 do begin ar[i, j]: = random (200) - 100; write (inttostr(ar[i, j])+' '); write (f, inttostr(ar[i, j])+' '); end; writeln (f, ''); writeln (); end; close (f); end.

program ArrayCalc;

var

 ar: array[1..4, 1..4] of integer;

function Neg (Row: Integer): Integer;

var

 i: Integer;

begin

 Result := 0;

 for i := 1 to 4 do

   if ar [Row, i] <= 0 then

     inc (Result);

end;

var

 i, j, imax, n, nmax: byte;

 f: text;

begin

 assign(f, 'mas.txt');

 rewrite (f);

 randomize;

 for i := 1 to 4 do begin

   for j := 1 to 4 do begin

     ar[i, j] := random (200) - 100;

     write (IntToStr (ar [i, j]) :4);

     write (f, IntToStr (ar [i, j]) :4);

   end;

   writeln (f, '');

   writeln;

 end;

 close (f);

 imax := 1;

 nmax := 0;

 for i := 1 to 4 do begin

   n := Neg (i);

   if n > nmax then begin

     nmax := n;

     imax := i

   end;

 end;

 WriteLn;

 WriteLn ('Строка массива:');

 for j := 1 to 4 do

   Write (ar [imax, j] :4);

 ReadLn;

end.

#include <iostream>using namespace std; int main(){     char str [] = "dd yhd yw dcjkayt dvqv auyj fbajk dyusdv sddw";     int k = 9; //position     int before=  0, after = 0, space = 0;                         for(int i = 0; i <= k; i++){             if(str[i] == ' '){                 space++;             }         }         if(str[k] != ' '){       for(int i = k + 1; str[i]; i++){         if(str[i] == ' ' || str[i] == '\0'){             after = i;                         break;                 }         }         for(int j = k - 1; j >= 0; j--){         if(str[j] == ' ' || j == 0){             before = j;                         break;                 }     }         cout<<space + 1<<" slovo ";         for(int i = before; i < after; i++)         cout<<str[i];         }         else cout<<space<<" slovo"; return 0; }

1. Простые вопросы

Что можно делать с информацией?

Какие органы чувств получать информацию?

2. Уточняющие вопросы

Можно ли считать, что информация обрабатывается в памяти человека?

Правильно ли я понял, что это компьютер новой модели?

3.  Интерпретационные (объясняющие) вопросы

Почему клавиатура - это устройство ввода информации?

Почему важно знать информатику?

4. Творческие вопросы

Придумай, что случится, если не будет компьютеров?

Что могло бы измениться, если бы мы перестали обмениваться информацией?

5. Практические вопросы

Где в жизни можно наблюдать, что информация закодирована?

Где еще используется кодирование информации?

6. Оценочные вопросы

Как ты относишься к информатике?

Почему хорошо знать, как можно закодировать информацию?

Написала, как поняла