samuilik-v
?>

Составьте программу для нахождения минимального элемента массива х, состоя- щего из 6 элементов, значения которых рассчитываются по формуле x=sini-1/2cosi+1

Информатика

Ответы

ogofman
Записал вашу формулу так же , как и в условии. Если что-то не так , просто расставьте скобки.

#include <iostream>
#include <cmath>
using namespace std;
void main()
{
setlocale(0, "");
int i; float x[6] = {};
for (int j = 0;j < 6;++j) 
{
cout <<endl<< "Введите аргумент i" << endl;
cin >> i;
x[j] = sin(i) - (1 / 2)*cos(i) + 1;
cout << " " << x[j];
}
system("pause");
}
ilkindadashov935232
Uses  crt;const  nmax=100;var  a1,a2: array[1..nmax] of integer;  n,i,b,k,s: integer;begin  randomize;  clrscr;  repeat    write('Введите размер массива n (n in [1..',nmax,']): ');    readln(n);    write('Введите число B (0<B<100): ');    readln(b);  until (n in [1..nmax]) and (b in [1..99]);  writeln('Массив A1');  for i:=1 to n do  begin    a1[i]:=random(99);    write(a1[i]:4);    if a1[i]>b then    begin      inc(k);      a2[k]:=i;      s:=s+a1[i];    end;  end;  writeln;  writeln('Среднее элеметов, больших B = ',s/k:0:2);  writeln('Массив A2:');  for i:=1 to k do write(a2[i]:4);  readln;end.
admin8808

program number1;

var a: array [1..5] of integer;

i,min,max: integer;

Begin

writeln('Введите 5 значений массива');

for i:=1 to 5 do

readln(a[i]);

min:=a[1];

max:=a[1];

for i:=1 to 5 do

Begin

if (a[i]>=max) then max:=a[i];

if (a[i]<=min) then min:=a[i];

End;

for i:=1 to 5 do

Begin

if max=a[i] then

Begin

 writeln('Максимальное значение: ',a[i],' [',i,']');

 max:=a[i];

End;

if min=a[i] then  

 Begin

 writeln('Минимальное значение: ',a[i],' [',i,']');

 min:=a[i];

 End;

End;

writeln('Среднее арифметическое: ',(min+max)/2);

End.

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

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

Составьте программу для нахождения минимального элемента массива х, состоя- щего из 6 элементов, значения которых рассчитываются по формуле x=sini-1/2cosi+1
Ваше имя (никнейм)*
Email*
Комментарий*

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

Андреевич-Екатерина1974
me576
Никитина580
Zakharov Lilit
heodbxbbshe
eizmaylova6
Alekseevna1064
sssashago8
dyatchina63
tinadarsi
endyurans2ooo
nikitavertiev98400
mgrunova
starabanov
waspmoto6188