EndLeSSDre@M Я думаю все верно, с украинского парные это четные, если я конечно не ошибаюсь Вот отдебаженный и исправленный код (P.S. Спасибо EndLeSSDre@M) Code: {$APPTYPE CONSOLE} const n =10; type mas=array [1..n] of integer; var m, m1, m2: mas; i, k, l: integer; procedure Proc([COLOR=Red]var[/COLOR] m, m1, m2: mas); var i: integer; begin k:=1; l:=1; for i:=1 to n do if m[i] mod 2 =0 then begin m1[k]:=m[i]; inc(k); end else begin m2[l]:=m[i]; inc(l); end; end; begin m[1]:=2; m[2]:=6; m[3]:=9; m[4]:=11; m[5]:=17; m[6]:=10; m[7]:=19; m[8]:=23; m[9]:=13; m[10]:=1; proc (m, m1, m2); for i:=1 to k[COLOR=Red] - 1[/COLOR] do write(m1[i],' '); writeln; for i:=1 to l[COLOR=Red] - 1[/COLOR] do write(m2[i],' '); readln; end.
Помогите выполнить лабораторную работу Здравствуйте! Пожалуйста помогите выполнить лабораторную работу на любом языке... Тема:Программирование алгоритмов разветвленной структуры.
Эмм а что тут непонятного? Code: var x,y:real; begin read(x); if (x<7)and(x>6) then y:=5*x+6; if (x>7)and(x<10) then y:=2*x else y:=9; writeln(y); end.
по первой картинке Code: {$APPTYPE CONSOLE} var x: real; begin write('x = '); readln(x); if (x > 6) and (x < 7) then writeln('y = ', 5*x + 6:0:3) else if (x > 7) and (x < 10) then writeln('y = ', 2 * x:0:3) else writeln('y = 9'); readln; end. и по второй Code: {$APPTYPE CONSOLE} const va = 0.8; vb = 1.2; k1 = 15; k2 = 0.7; k3 = 0.01; v = 0.8; var v2, v3: real; begin write('v2 = '); readln(v2); write('v3 = '); readln(v3); if (v < v2) and (v > 0) then writeln('I = ', k1 * v:0:3) else if (v > v2) and (v < v3) then writeln('I = ', k1*v2 + k2*sqrt(v):0:3) else if (v3 < v) then writeln('I = ', k1*va + k2*sqrt(vb) + v3*k3:0:3); readln; end. Если не накосячил и правильно понял задачки, то так))
Блин опять не успел((( жалко что тут мало интересных задачек просят сделать... так даже не интересно(((
нет ну книжка дома лежит... че то никак взяться за нее не могу... начал С++ изучать... а так я больше по basic pascal дельфи... ну и все такое со схожим синтаксисом
Все привет!!!))) Есть кто-нибудь кто разбирается с высшей математикой и работает в среде MatLab ???????? Нужна ваша помощь(((( Плиз отзовитесь)
Доброго времени суток! Помогите пожалуйста сделать лабораторную работу в delphi.. Нужна сделать вот такое окно, что бы можна было обчислить Y=23cos2(x13x25)+2x1. ПОЖАЛУЙСТА!!!
Помогите, пожалйста, cоставить программы. Напишите, если можно программы на С++ 1) Заменить в тексте все символы с 'a' на 'z', 'b' на 'y', 'c' на 'x' и так далее. 2) Определить средние арифметические столбцов матрицы Данные вводятся с клавиатуры
помогите, плз...нужно сделать на MathCADе такое: Вычислить значение суммы, используя операторы цикла с параметром for и с предпосылкой while. вот само задание
помогите зделать программу Создание собственной библиотеки создать библиотеку функций Список группы (ФИО, возраст, средний балл по предметам) на СИ
помогите разобрать задачу на си.С виду легкая, но я только начал этот язык изучатьбпоэтому не судите строго. Задача: В двумерном массиве выбрать элементы, которые больше суммы элементов главной диагонали массива. А вот моя наработка: Код C1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 #include <stdio.h> #include <conio.h> #include <stdlib.h> #include <math.h> void main() { clrscr(); randomize(); const int n=10; int i,j,sum=0,S[n][n]; for(i=1;i<=n;i++) for(j=1;j<=n;j++) S[j]=rand()%100; printf("[%d] ",S[i,j]); for(i=1;i<=n;i++) S[i,i]= (S[i,i] / n*2); for(i=1;i<=n;i++) sum=sum+S[i,i]; for(i=1;i<=n;i++) { for(j=1;j<=n;j++) if(S[i,j] > sum) printf("Summa elementov bolshe\n); if(i=j) printf("Summa rovna\n); printf("S[i,j]:3\n"); } printf("sum=",sum); getch();
че то я ваще твою прогу не понял.... может чисто из за того что С++ не знаю)))) че трудного то... находишь сумму элементов с одинаковыми индексами, типа s(1,1) s(2,2) и так до s(n,n). потом в другом цикле сравниваешь их и записываешь либо в строку либо в одномерный массив...
