Program summa; uses crt; const N =10; var B:array[1..N] of integer; s,i : integer; begin s:=0; for i:=1 to N do begin write( 'B[ ' ,i, ']= ' ); readln(B[i]); s:=s+B[i]; end; writeln( 's=' ,s); end.
int main(void) { /* Переменная для хранения числа */ double chislo;
/* Сообщение с запросом для пользователя */ printf("Введите ваше число: ");
/* Считывание числа в определенном формате в определенное место */ scanf("%f", &chislo);
/* Проверяем, является ли число большем нуля (положительным)*/ if (chislo > 0) { /* Если да, то прибавляем единицу (операция инкремент) */ chislo++; } else { /* Если число отрицательное, то вычитаем из числа двойку */ chislo -= 2; }
1. алг нач цел X ввод X если X>0 то X:=X+1 все вывод X кон
2. алг нач цел X ввод X если X>0 то X:=X+1 иначе X:=X-2 все вывод X кон
3. алг нач цел X ввод X если X>0 то X:=X+1 все если X<0 то X:=X-2 все если X=0 то X:=10 все вывод X кон
4. алг нач цел X,Y,Z,N ввод X,Y,Z N:=0 если X>0 то N:=N+1 все если Y>0 то N:=N+1 все если Z>0 то N:=N+1 все вывод N кон
5. алг нач цел X,Y,Z,N,K ввод X,Y,Z N:=0 K:=0 если X>0 то N:=N+1 иначе K:=K+1 все если Y>0 то N:=N+1 иначе K:=K+1 все если Z>0 то N:=N+1 иначе K:=K+1 все вывод N,K кон
Самые наиболее простые варианты выбрал думаю в самый раз
uses crt;
const N =10;
var B:array[1..N] of integer;
s,i : integer;
begin
s:=0;
for i:=1 to N do
begin
write( 'B[ ' ,i, ']= ' ); readln(B[i]);
s:=s+B[i];
end;
writeln( 's=' ,s);
end.