program E7;
var x: integer;
begin
writeln('vvedite znachenie gradusnoi meri ugla');
readln(x);
if a=180 then writeln('razvernutii') else writeln('ne razvernutii');
readln;
end.
Если вы работаете в школе на программе FreePascal, то перед "end" можно "readln" не писать. Если же вы работаете на программе TurboPascal, "readln" перед "end" обязательно нужно писать.
Код на C++:
#include <iostream>
#include <ctime>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
srand(time(NULL));
const int N = 10;
int A[N][N];
for (int i = 0; i < N; i++)
{
for (int j = 0; j < N; j++)
{
//Если нужно случайное число, то закомментируй те 2 строчки, и раскомментируй следующий код: A[i][j] = rand() % 100;
cout << "Введите элемент матрицы с индексами " << i + 1 << " " << j + 1;
cin >> A[i][j];
};
};
int x, y;
do
{
cout << "Введите координаты матрицы, чье значение хотите узнать: ";
cin >> x >> y;
} while (x < 1 || x > N || y < 1 || y > N);
cout << "Значение матрицы с данными координатами: " << A[x - 1][y - 1] << endl;
return 0;
};
Объяснение:
Я не особо понял, что ты имел в виду, но я сделал 2 вещи: пользователь сам вводит каждое значение элемента матрицы и он сам вводим индексы матрицы, чтобы узнать значение, которое там находится
ДВЕ ЗАДАЧИ В ОДНОЙ
const N=10;
var
a:Array[1..N] of integer;
i,k,sum,c,b:integer;
begin
Randomize;
k:=0;
sum:=0;
for i:=1 to N do begin
a[i]:=random(61);
if a[i]>30 then k:=k+1;
if a[i]<30 then sum:=sum+a[i];
write(a[i],' ');
end;
writeln;
writeln(k,' чисел превышает 30');
writeln('сумма чисел = ',sum);
writeln;writeln;
writeln('введите число a');
readln(c);
writeln('введите число b (b должно быть больше a)');
readln(b);
for i :=c to b do
write(i,' ');
readln;
end.
program StrAngle;
var
a: integer;
begin
readln(a);
if a = 180 then writeln('YES') else writeln('NO');
end;