Самостоятельно составьте программу и алгоритм нахождения таблицы значений функции y=sinx+1 на отрезке [a; b] с шагом h с использованием цикла-до и цикла-пока. выполните программу и запишите результаты ее работы в таблицу.
var X: array [1..10] of integer; a,s,i: integer; begin randomize; write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)'); readln(s); case s of 1: begin writeln('Введите 10 элементов массива: '); for i:= 1 to 10 do readln(X[i]); a:=X[1]; for i:= 1 to 10 do if a < X[i] then a:=X[i]; writeln('Максимальный элемент: ',a); end; 2: begin writeln('Массив: '); for i:= 1 to 10 do begin X[i]:=random(101); write(X[i]:4); end; writeln; a:=X[1]; for i:= 1 to 10 do if a < X[i] then a:=X[i]; writeln('Максимальный элемент: ',a); end; end; end.
using namespace std;
int main()
{
int n, m, c;
cout << "n = ";
cin >> n;
cout << "m = ";
cin >> m;
int a[n][m];
for(int i = 0; i < n; i++)
{
cout << "Введите " << i + 1 << " рядок матрицы (" << m << " элементов) через пробел" << endl;
for(int j = 0; j < m; j++)
{
cin >> a[i][j];
if(a[i][j] % 2 == 1)
{
c++;
}
}
}
cout << "Количество нечетных элементов массива равно " << c;
}
#include <iostream>
using namespace std;
int main()
{
int n, mi = 0, mj = 0, sum = 0;
cout << "n = ";
cin >> n;
int a[n][n];
for(int i = 0; i < n; i++)
{
cout << "Введите " << i + 1 << " рядок матрицы (" << n << " элементов) через пробел" << endl;
for(int j = 0; j < n; j++)
{
cin >> a[i][j];
if(a[i][j] < a[mi][mj])
{
mi = i;
mj = j;
}
}
}
for (int j = 0; j < n; j++)
{
sum += a[mi][j];
}
cout << "Сумма элементов рядка с минимальным элементом равна " << sum;
}
X: array [1..10] of integer;
a,s,i: integer;
begin
randomize;
write('Хотите заполнить массив самостоятельно? (1) Или автоматически? (2)');
readln(s);
case s of
1: begin
writeln('Введите 10 элементов массива: ');
for i:= 1 to 10 do readln(X[i]);
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
2: begin
writeln('Массив: ');
for i:= 1 to 10 do
begin
X[i]:=random(101);
write(X[i]:4);
end;
writeln;
a:=X[1];
for i:= 1 to 10 do
if a < X[i] then a:=X[i];
writeln('Максимальный элемент: ',a);
end;
end;
end.