В Pascal vara, b, c , z, x, g : real;beginreadln(a,b,c,z);g:=a+b ;x:=z+c ;if g>=x then begin if a >=b then writeln(a) else writeln(b); end; else begin if z>=c then writeln(z) else writeln(c) end;end.
#include <iostream> using namespace std; const int N = 8; //длина массива int s = 0; //начальное значение суммы int mas[N]; //объявляем статический массив длины N int main() { //вводим элементы массива for(int i = 0; i < N; ++i) { cin >> mas[i]; } //пробегаемся по элементам массива for(int i = 0; i < N; ++i) { if(mas[i] > 0) //если элемент массива больше 0 s += mas[i]; //прибавляем значение элемента к итоговой сумме } cout << s; //вывод суммы на экран return 0; }
begin for i := 0 to 10 do A[i] := i; PrintLn(a); for i := 1 to 11 do begin A[i - 1] := A[11 - i]; PrintLn(a); end; end.
Трасировка второго цикла А [10,1,2,3,4,5,6,7,8,9,10] [10,9,2,3,4,5,6,7,8,9,10] [10,9,8,3,4,5,6,7,8,9,10] [10,9,8,7,4,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10] [10,9,8,7,6,5,6,7,8,9,10]
vara, b, c , z, x, g : real;beginreadln(a,b,c,z);g:=a+b ;x:=z+c ;if g>=x then begin if a >=b then writeln(a) else writeln(b); end; else begin if z>=c then writeln(z) else writeln(c) end;end.