Var a: array[1..100, 1..100] of integer; i, j, m, n, count2, countx, x: integer;
begin {ввод матрицы} n := 10;
writeln('Данные матрицы:'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := random(200) - 100; write(a[i, j]:4, ' ') end; writeln; end;
write('x = '); readln(x); count2 := 0; countX := 0; for i := 1 to n do for j := 1 to n do begin if a[i, j] = x then countX := countX + 1; if (a[i, j] >= 10) and (a[i, j] <= 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then count2 := count2 + 1; end; writeln('countX = ', countX); writeln('count2 = ', count2); end.
Microsoft Word - это текстовый редактор от компании Microsoft. Программа обычно входит в пакет офисных программ Microsoft Office, но может поставляться и отдельно. Является платной и стоит просто бешеных денег для организаций (около 19000руб, т.к. продается только в составе пакета Microsoft Office Pro), и больших денег для домашних пользователей (около 4000р), но никого это не смущает, все используют пиратские версии. Программа позволяет редактировать тексты любой сложности, вставлять в документы картинки, таблицы и прочее нестандартное содержимое. Аналогом Microsoft Word является бесплатный Writer из пакета LibreOffice и OpenOffice, который позволяет делать всё то же самое, только бесплатно, хотя и немного сложнее местами. Microsoft Word официально работает только на компьютерах с ОС Microsoft Windows и Apple OS X, хотя возможен и его запуск на ОС семейства Linux через Wine, но корректная работа программы не гарантируется. Microsoft Word является самым распространенным текстовым редактором в мире.
a: array[1..100, 1..100] of integer;
i, j, m, n, count2, countx, x: integer;
begin
{ввод матрицы}
n := 10;
writeln('Данные матрицы:');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := random(200) - 100;
write(a[i, j]:4, ' ')
end;
writeln;
end;
write('x = ');
readln(x);
count2 := 0;
countX := 0;
for i := 1 to n do
for j := 1 to n do
begin
if a[i, j] = x then
countX := countX + 1;
if (a[i, j] >= 10) and (a[i, j] <= 99) and ((a[i, j] div 10 + a[i, j] mod 10) mod 2 = 0) then
count2 := count2 + 1;
end;
writeln('countX = ', countX);
writeln('count2 = ', count2);
end.