Перейти к содержимому
dan_ntu

Данияр Мырзаканов

@dan_ntu

На сайте с 29 марта 2010 г.Казахстан, Алматы

Қазақстан халқы үшін қызмет жасаймын

рейтинг

100

постов

173

комменты

73

подписчиков

96

подписок

7

Дан массив размера N и целые числа K и L (1 <= K <= L <= N). Найти среднее арифметическое элементов массива с номерами от K до L включительно.

#include <stdio.h>

#include <conio.h>

 

int main(){

int a[1000];

int n,k,l,n1,i;

double sred;

int sum=0;

clrscr();

printf("Vvedite n->");

scanf("%d",&n);

printf("Vvedite l->");

scanf("%d",&l);

if(l>n)

{

printf("l>n Vvedite pravilnoe znachenie");

return 1;

}

else{

printf("Vvedite k->");

scanf("%d",&k);

if ((k<1) || (k>l)){

printf("k<1 k>l Vvedite pravilnoe znachenie");

return 1;

}

else{

for (i=0;i<n;i++)

{

printf("a[%d]=",i);

scanf("%d",&a[i]);

}

for (i=0;i<n;i++)

printf("a[%d]=%d ",i,a[i]);

 

n1=l-k;

for (i=k;i<=l;i++)

sum=sum+a[i];

sred=double(sum)/double(n1);

printf("\narifmetikalik oratasi %5.3f",sred);

}

}

getch();

return 0;

 

}

0
0
2826

Паскаль

а(10) сандар тизбегин еки массивке болиндер, олардын бириншисине жуп номерли элементтерди жазу, ал екиншисине так номерли элементтерди жазу.

Program a10_zhup;
uses crt;
const n=10;
var a,b,c:array[1..n] of integer;
n1,n2:integer;
i:integer;
begin
clrscr;
n1:=0; n2:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
if (i mod 2=0) then
begin
n1:=n1+1;
b[n1]:=a[i];
end
else
begin
n2:=n2+1;
c[n2]:=a[i];
end;
for i:=1 to (5) do
write('b[',i,']=',b[i],' ');
writeln;
for i:=1 to 5 do
write('c[',i,']=',c[i],' ');
readln;
end.
0
0
432

Паскаль

а(10) жуп номерли элементтеринин арасынан ен киши он элементти табыныз

Program a10;
uses crt;
const n=10;
var
a:array[1..n] of integer;
i,imin,min:integer;
begin
clrscr;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
min:=a[2];
for i:=1 to n do
if (i mod 2=0) then
if(a[i]<min) and (a[i]>0) then begin min:=a[i]; imin:=i; end;
writeln('min zhup element a[',imin,']=',min);
readln;
end.
0
3
870

Сайт про круглосуточных услуг

Дорогие увиженцы и увижинки! Я пишу это пост в надежде кто-нибудь сделает или найдется спонсор для этого интернет проекта. Я хочу создать чисто информационный сайт об услугах в алматы круглосуточно, на сайте будут отображаться адреса их местонахождения и телефоны. На самом деле это простой круглосуточный сайт (на этом сайте будут только круглосуточные сайты). Шаги действия пользователя: 1 Пользователь в форме поиска пишет что ему нужно (Например столовая, стоматология, эвакуатор,ресторан,клубы,типография,адвокат,нотариус и т.д) 2 выбирает район (допустим алмалинский,турксибский,ауэзовский и т. д.) (уважаемые блогеры добавьте что вы еще бы хотели видеть в сайте. Конечно дополнительные модули будут развиваться Например мобильная версия сайта ближайший банкомат,столовая, ресторан и т.д.) Пла…

0
2
252

pascal массив

пример: даны целые числа а1...аn  создайте новый (цепь -по моему массив)тiзбек :если аbs(аi) не равно mах(аi...аn), тогда заменить аi- в массиве нулями , в противном случае заменить аi- на 1 . (i=1...n) =>индекс

program esep1;
uses crt;
var n,k,max,i:integer;
a: array[1..100] of integer;
b: array[1..100] of integer;
begin
clrscr;
write('Vvedite n->');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
b[i]:=a[i];
max:=a[1];
for i:=2 to n do
begin
if (a[i]>max) then max:=a[i];
end;
for i:=1 to n do
if (abs(a[i])=max) then b[i]:=1
else b[i]:=0;
writeln;
writeln;
writeln('Massiv a');
writeln;
for i:=1 to n do
write('a[',i,']=',a[i],' ');
writeln;
writeln;
writeln('Massiv b');
writeln;
for i:=1 to n do
write('b[',i,']=',b[i],' ');
readkey;
end.
0
0
365

Паскаль

Дано число k и челочисленный массив размера N. Поменять местами первую / последнюю и k-ю серии массива. Если серии в массиве меньше k , то вывести массив без изменений.

program esep1;
uses crt;
var n,k,x,i:integer;
a: array[1..100] of integer;
begin
clrscr;
write('Vvedite k->');
readln(k);
write('Vvedite n->');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
if(n<k) then
begin
writeln('Massiv bez izmeni');
for i:=1 to n do
write('a[',i,']=',a[i],' ');
end
else
begin
x:=a[1];
a[1]:=a[n];
a[n]:=x;
a[k]:=k;
writeln('Massiv s izmenoi');
for i:=1 to n do
write('a[',i,']=',a[i],' ');
end;
readkey;
end.
0
0
579

Неглухой телефон

Неглухой телефон (Время: 1 сек. Память: 16 Мб Сложность: 1%) Возможно, что Вы когда то играли в игру «Глухой телефон», либо слышали о ней. В этой игре участникам приходится передавать информацию друг другу различными способами: словесно, образно, бывает даже приходится писать левой рукой текст, который другой участник команды должен будет прочитать. Так же известно, что практически никогда передаваемая информация не доходит до конечного адресата. Обозначим за Fi(x) функцию, которая преобразует текст передаваемой информации x в ту, которую получит участник i+1 от участника i. Тогда последний n-й участник получит данные y, которые будут выражаться следующей формулой: y = Fn-1(Fn-2(…F2(F1(x)))) Но Вам необходимо исключить какие-либо внешние факторы, которые могут исказить исходную информацию…

0
0
1900

Хочу создать 24 часовой Информационный сайт

Дорогие увиженцы и увижинки! Я пишу это пост в надежде кто-нибудь сделает или найдется спонсор для этого интернет проекта. Я хочу создать чисто информационный сайт об услугах в алматы круглосуточно, на сайте будут отображаться адреса их местонахождения и телефоны. На самом деле это простой круглосуточный сайт (на этом сайте будут только круглосуточные сайты). Шаги действия пользователя: 1 Пользователь в форме поиска пишет что ему нужно (Например столовая, стоматология, эвакуатор,ресторан,клубы,типография,адвокат,нотариус и т.д) 2 выбирает район (допустим алмалинский,турксибский,ауэзовский и т. д.) (уважаемые блогеры добавьте что вы еще бы хотели видеть в сайте. Конечно дополнительные модули будут развиваться Например мобильная версия сайта ближайший банкомат,столовая, ресторан и т.д.) Пла…

0
4
293

Си тилиндеги есеп

Матрицадагы барлык диагональдарын максимумдарын табу #include &lt;stdio.h&gt; #include &lt;conio.h&gt; #define nmax 100 void main() { clrscr(); int a[nmax][nmax]; int b[100]; int min,max; int n,i,j,c,sum,k,l,p,k1; printf("Vvedite n-&gt;"); scanf("%d",&amp;n);// for(i=1;i&lt;=n;i++){ for(j=1;j&lt;=n;j++){ printf("a[%d][%d]=",i,j); scanf("%d",&amp;a[i][j]); } } printf("\n Matrisa a \n\n"); for (i=1;i&lt;=n;i++){ for (j=1;j&lt;=n;j++){ printf( " %d ",a[i][j]); } printf("\n");} //// printf("\nbasti dioganal max\n"); for (l=1;l&lt;=2*n-1;l++){ sum=0; if(l&lt;=n){ max=a[n][l]; for(i=n-l+1;i&lt;=n;i++) if (a[i][i-n+l]&gt;max) max=a[i][i-n+l]; b[l]=max; printf("\n max diagonal %i",max); } else{ if(l&gt;n){ max=a[1][l-n+1]; for (i=1;i&lt;=2*n-l;i++) if (a[i][i+l-n]&gt;max) max=a[i][i+l-n]; b[l]=ma…

0
2
813

С++

Есеп1. +++ танбалардан туратын создердин санын аныктау sl.Pos("+++")) Pos функциясы +++ танбаларын создин ишинде издейди, егер бар болса оны к++ оны экранга шыграмыз. Бул есеп тек С++ Builder истейди //--------------------------------------------------------------------------- #include &lt;vcl.h&gt; #include &lt;math.h&gt; #include &lt;iostream.h&gt; #include &lt;stdio.h&gt; #include &lt;string.h&gt; #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //----------------------------------------------------------------------…

0
0
551