По информатике 11 класс создать программу, заполняющую массив случайными числами от 1 до 20, найти в этом массиве номер минимального элемента язык: паскаль

272

451

Посмотреть ответы 2

Ответы на вопрос:

Akri2532

Информатика

4,4(49 оценок)

ответ:

объяснение:

const

n = 10;

a = 1;

b = 20;

var

ar: array[1..n] of integer;

i: integer;

min, i_min: integer;

begin

randomize;

for i: =1 to n do

ar[i]: =random(b-a+1)+a;

for i: =1 to n do

write(ar[i], ' ');

writeln;

i_min: =1;

min: =ar[1];

for i: =2 to n do

if (ar[i]

min: =ar[i];

i_min: =i;

end;

writeln(i_min);

end.

AliceandCat

Информатика

4,6(98 оценок)

Var x: real; n: integer; begin write('x = '); readln(x); writeln('введите номер : '); writeln('1-вычисление квадратного корня; '); writeln('2-возведение в квадрат; '); writeln('3-вычисление синуса; '); writeln('4-вычисление косинуса; '); readln(n); case n of 1: writeln(sqrt(x): 6: 4); 2: writeln(x*x: 6: 4); 3: writeln(sin(x): 6: 4); 4: writeln(cos(x): 6: 4); else writeln('ошибка ввода'); end; end. пример: x = 2.1введите номер : 1-вычисление квадратного корня; 2-возведение в квадрат; 3-вычисление синуса; 4-вычисление косинуса; 30.8632