в паскале
1) program one;
uses crt; var a: array [1..10] of integer; x: real; i: integer; beginclrscr; x: =0; for i: =1 to 10 doreadln(a[i]); for i: =1 to 10 dobeginif (a[i]< 0) or (a[i] mod 2=0) thenx: =x+sqr(a[i]); end; writeln; write(x); end.
2)
program two; uses crt; var a: array [1..52] of integer; x,i: integer; beginclrscr; x: =34; for i: =1 to 52 dobegina[i]: =1+x; x: =x+1; if (a[i] mod 7 =1)or (a[i] mod 7 =2) or (a[i] mod 7 =5)then writeln(a[i]); end; end.
3)
program three; uses crt; var n,x: integer; a,y: real; beginclrscr; readln(a,n); for x: =1 to n doy: =x*a; writeln(y); end.
4)
program four; uses crt; var a: array [1..100] of integer; n,i,max,x: integer; begin clrscr; writeln('vvedite kol-vo elementov'); readln(n); writeln('vvedite elementy'); for i: =1 to n do read(a[i]); for i: =1 to n do begin max: =a[1]; if (a[i] < 0) and (a[i]> a[x]) then max: =a[i]; x: =i; end; writeln ('naib',max,'nomer',x); end.
5)
program abc; uses crt; var s,a,b: integer; beginclrscr; s: =0; a: =1; b: =3; while a< 98 dobeginwhile b< 100 dobegins: =s+b-a; a: =a+4; b: =b+4; end; end; writeln(s); end.
/*суммы будем сравнивать по модулю, в ином случае программа не будет иметь смысла, так как сумма отрицательных всегда будет меньше, чем сумма положительных*/
#include <iostream>
#include <cmath>
using namespace std;
void check() {
float s_positive = 0, s_negative = 0, digit;
try {
cout << "Начинайте ввод чисел" << endl;
do {
cin >> digit;
if (digit > 0)
s_positive += digit;
else
s_negative += digit;
} while (digit != 0);
if (s_positive > abs(s_negative))
cout << "Сумма положительных чисел больше!";
else if (abs(s_negative) > s_positive)
cout << "Сумма отрицательных чисел больше!";
else
cout << "Суммы равны по модулю!";
}
catch (...) {
cout << "Ошибка!";
}
}
signed main() {
setlocale(LC_ALL, "Rus");
check();
return 0;
}
Поделитесь своими знаниями, ответьте на вопрос:
Перечислите основные свойства алгоритмов. и как проилюстрировать их примерами?