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

Составить блок схему .дан двухмерный массив 7*8.указать в какой сроке массива содержится одинаковое количество отрицательных и положительных элементов.если нет строки,сообщить об этом

Показать ответ
Ответ:
nekit120
nekit120
19.02.2020 04:00
Program abc;
var
a,b,c,t,z:integer;
m,k,l:string;
label 1,2,3,4;
begin
writeln ('Введите число от 1-го до 100');
repeat read(a) until (a>=0)and(a<=100);
b:=a div 10;
c:=a mod 10;
if a=100 then goto 2;
if a=0 then goto 1;
if (a>9) and (a<20) then goto 4;
case b of
2:m:='Двадцать ';
3:m:='Тридцать ';
4:m:='Сорок ';
5:m:='Пятьдесят ';
6:m:='Шестдесят ';
7:m:='Семдесят ';
8:m:='Восемьдесят ';
9:m:='Девяносто '; end;
case c of
1:k:='один';
2:k:='два';
3:k:='три';
4:k:='четыре';
5:k:='пять';
6:k:='шесть';
7:k:='семь';
8:k:='восемь';
9:k:='девять';
end;
writeln (m,k);
goto 3;
2:writeln ('Сто');
goto 3;
1: writeln ('Ноль');
goto 3;
4: if a=10 then writeln ('Десять');
if a=11 then writeln ('Одиннадцать');
if a=12 then writeln ('Двенадцать');
if a=13 then writeln ('Тринадцать');
if a=14 then writeln ('Четырнадцать');
if a=15 then writeln ('Пятьнадцать');
if a=16 then writeln ('Шестнадцать');
if a=17 then writeln ('Семнадцать');
if a=18 then writeln ('Восемнадцать');
if a=19 then writeln ('Девятнадцать');
3:end.
0,0(0 оценок)
Ответ:
autegenova
autegenova
23.07.2022 20:30

const

 n=10;

type  

 massive = array [1..n] of integer;

procedure select(mas : massive);

var

 i, j, k,tmp: integer;

begin

 for i:=1 to n-1 do

   begin

     k:=i;

     tmp:=mas[i];

     for j:=i+1 to n do

       if (mas[j]<tmp) then

         begin

           k:=j;

           tmp:=mas[j];

         end;

     mas[k]:=mas[i];

     mas[i]:=tmp;

   end;

 write('Сортировка выбором:');

 for i:=1 to n do

   write(' ',mas[i],', ');

end;

procedure bubble (mas : massive);

var

 i,j,tmp:integer;

begin  

 for i:=1 to n-1 do

   for j:=1 to n-i do

     if (mas[j]>mas[j+1]) then

       begin

         tmp:=mas[j];

         mas[j]:=mas[j+1];

         mas[j+1]:=tmp;

       end;

 write('Сортировка пузырьком:');

 for i:=1 to n do

   write(' ',mas[i],', ');

end;

procedure insert(mas : massive);

var

 i,j,k,tmp : integer;

begin

 for i:=2 to n do

   begin

     tmp:=mas[i];

     j:=1;

     while (tmp>mas[j]) do

       j:=j+1;

     for k:=i-1 downto j do

       mas[k+1]:=mas[k];

     mas[j]:=tmp;

   end;

write('Сортировка вставкой:');

for i:=1 to n do  

 write(' ',mas[i],', ');

end;  

var

i : integer;

a : massive;

begin

 randomize;

 write('Массив:');

 for i:=1 to n do

   begin

     a[i]:=random(100);

     write(a[i]:4);

   end;

 writeln;

 select(a);

 writeln;

 bubble(a);

 writeln;

 insert(a);

end.    

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота