В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
шахзода16
шахзода16
10.08.2022 15:16 •  Информатика

Control questions: 1. Basic concepts of EP.
2. What is the digital democracy?
3. Information resources of the state in a network have to be how exactly organized to satisfy needs of citizens?
4. Whether the digital democracy to society and citizens is profitable?
5. Infrastructure "Electronic government".
6. External circuit, internal circuit.
7. Give definition to information communication technologies.
8. Call four stops of successful implementation of EP in Kazakhstan.
9. Give concept of architecture of EP.
10. Give concept of a payment gateway.

TEST

1.The electronic government is
2.The electronic government is created for
3. The authorized body is
4. The information system is
5. Whats tage of society it is constructed in RK?
6.Information services are
7. The purposes of state regulation in the field of informatization are
8. The most important principles of the organization of the electronic government is

Показать ответ
Ответ:
Pomidorka213
Pomidorka213
23.05.2023 00:01

program raf105;

const

 n = 3; //Размер матрицы

var

 a: array[1..n,1..n] of real;

 max: real;

 i,j: integer;

begin

 max:= -10000;

 writeln('Вводите ',n*n,' чисел по очереди');

 for i:=1 to n do

   for j:=1 to n do

   begin

     readln(a[i,j]);

     if a[i,j] > max

       then max:= a[i,j];

   end;

 for i:=1 to n do

 begin

 writeln;

   for j:=1 to n do

   begin

     if a[i,j] < 0

       then a[i,j]:= a[i,j] / max;

     write(a[i,j]:5:2,' ');

   end;

 end;

end.

PascalABC 3.4.2
0,0(0 оценок)
Ответ:
gejdanp0dmbe
gejdanp0dmbe
08.06.2020 10:12
Program gulkakh;
const n=5;
var a:array[1..n,1..n] of integer;   
i,j,k,max,stroka:integer;
begin
writeln('Исходная матрица:');
for i:=1 to n do   
for j:=1 to n do    begin   
 a[i,j]:=random(20)-10;   
 write(a[i,j],' ');   
  if j=n then writeln; 
  end;   

 stroka:=1;
max:=a[1,1];

for i:=1 to n do
for j:=1 to n do begin
if max<a[i,j] then begin
max:=a[i,j];
stroka:=i;
end;
end;

k:=n;

for i:=stroka to n-1 do
for j:=1 to n do
a[i,j]:=a[i+1,j];
k:=k-1;
writeln('Без удаленной строки:');
for i:=1 to k do 
 for j:=1 to n do begin
  write(a[i,j],' '); 
if j=n then writeln; 
end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота