50

ПОМОГИТЕ! Нужно написать программу в паскале. 1. Поменяйте местами первый элемен…

01 марта 2023

ПОМОГИТЕ! Нужно написать программу в паскале. 1. Поменяйте местами первый элемен массива А (8) с наибольшим элементом, апоследний — с наименьшим элементом массива. Случайные числа в [10; 99]

категория: информатика



36

program n1; uses crt; var a: array[1… 10000] of integer; i,min,max: integer; begin clrscr; for i: =1 to 8 do begin randomize; a[i]: =random (99-10+1)+10; write (a[i],'); {выводим изначальный массив} end; min: =a[1]; max: =a[8]; for i: =1 to 8 do begin if min>a[i] then min: =a[i]; if maxa[8]) then begin a[i]: =a[8]; a[8]: =max; end; end; writeln; for i: =1 to 8 do write (a[i],'); {выводим измененный массив} end. program n2; uses crt; var a: array[1… 10000] of integer; i,n: integer; begin clrscr; n: =0; for i: =1 to 8 do begin randomize; a[i]: =random (9-1+1)+1; write (a[i],'); {выводим массив} if a[i] mod 2=0 then n: =n+a[i]; end; writeln; writeln (n); end. program n3; uses crt; var a: array[1… 10000] of integer; i,n: integer; begin clrscr; n: =0; for i: =1 to 10 do begin randomize; a[i]: =random (20) -10; write (a[i],'); {выводи массив} end; for i: =1 to 10 do begin if a[i]=0 then n: =n+1; if (a[i]=0) and (n=1) then begin writeln; writeln (i,' – первый нулевой элемент '); end; if (i=10) and (n=0) then begin writeln; writeln (нулевого элемента нет); end; end; end.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...