var temp:array[1..31] of integer;
k,i:integer;
begin
for i:=1 to 31 do readln(temp[i]);
for i:=1 to 31 do
if a[i]<0 then inc(k);
writeln(k);
end.
1. Берілген нүктелер арқылы өтетін түзудің теңдеуін жазыңыз: А(2;1) В(-1;2). [2 ұпай]
2. Шеңбердің берілген теңдеуі бойынша оның центрінің координаталары мен радиусын табыңыз: (х-4)2 +(у+8)2 =36 [1 ұпай]
3. нүктелері берілген.
a) төбелерінің координаталары бойынша салыңыз; [1 ұпай]
b) қабырғаларының ұзындықтарын табыңыз; [3 ұпай]
c) түрін анықтаңыз (теңқабырғалы, теңбүйірлі, тікбұрышты); [2 ұпай]
d) берілген үшбұрыштың ауданын есептеңіз. [2 ұпай]
4. Төбелері А (1;-1) В (0;1) С (4;3) және Д (5;1) нүктелері болатын төртбұрыштың тіктөртбұрыш болатынын дәлелдеп, оның ауданын табыңыз. Ол үшін:
a) төбелерінің координаталары бойынша сызбасын салыңыз; [1 ұпай]
b) қабырғаларының ұзындықтарын табыңыз; [4 ұпай]
c) диагональдарын анықтап, дәлелдеңіз; [2 ұпай]
d) тіктөртбұрыштың ауданын есептеңіз. [2 ұпай]
Объяснение
#include
#include
int main()
{
int n;
int cnt = 0;
std: : cin > > n;
int **arr = new int*[n];
for(int i=0; i
{
arr[i] = new int[n];
for(int j=0; j
{
std: : cin > > arr[i][j];
//arr[i][j] = ++cnt;
}
}
cnt = 0;
while(cnt < n)
{
for(int i=0; i< (n-cnt); i++) std: : cout < < std: : setw(2) < < arr[cnt][i] < < " ";
std: : cout < < std: : endl;
cnt++;
}
for(int i=0; i
delete [] arr[i];
delete [] arr;
arr = nullptr;
system("pause");
return 0;
}
program a1;
uses crt;
var a:array[1..31] of longint;k,i:integer;
begin
clrscr;
for i:=1 to 31 do begin
write('Введите температуру ',i,' числа:');
readln(a[i]);
if a[i]<0 then k:=k+1;
end;
writeln(' Количество дней в которые были заморозки = ', k);
readln
end.
P.S. Если паскаль ABC, то выделенное писать не обязательно