Дмитриевич Бирковская69
?>

Следующие переключательные схемы

Информатика

Ответы

kbndbyb6
1. uses crt; const n=5; var i,j,ans: integer; a: array[1..n,1..n] of integer; begin randomize; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(5,10); write(a[i,j],' '); end; writeln(); end; for i: =1 to n do begin ans: =0; for j: =1 to n do begin if a[i,j]> 7 then ans: =ans+1; end; writeln('in ',i,': ',ans); end; end.2.uses crt; const n=3; var i,j,t: integer; a: array[1..n,1..n] of integer; beginwriteln('input array: '); for i: =1 to n dofor j: =1 to n doread(a[i,j]); for j: =1 to n dobegint: =a[1,j]; a[1,j]: =a[3,j]; a[3,j]: =t; end; for i: =1 to n dobeginfor j: =1 to n dowrite(a[i,j],' '); writeln(); end; end.
minchevaelena23
Как я поняла, нужно было использовать кусок кода, данный выше? var    a: array[1..10] of integer;   imax, i: byte; begin  writeln('массив: ');   randomize;   for i: =1 to 10 do    begin      a[i]: =random(100);       write(a[i]: 4);     end;   imax : = 1;   for i: =2 to 10 do    if a[i] > a[imax] then imax : = i;   writeln;   writeln('максимальный элемент = ', a[imax]: 3, ' в позиции ', imax: 2); end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Следующие переключательные схемы
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Кирилл_Гульницкий
iivanov54
Vasilevich Fokin
tobolenecivanov1675
metegina4
Коробкова1437
egolopuzenko4253
Вера1072
Кристина910
ninaandreeva3179
Avdeeva Yelizaveta
mrvasilev2012
Doronin755
euzdenova
atupicyn754