A | !A A | B | A&&B A | B | A||B ===|==== ===|===|===== ===|===|===== V | F V | V | V V | V | V ---|---- ---|---|----- ---|---|----- F | V V | F | F V | F | V ---|---|----- ---|---|----- F | V | F F | V | V ---|---|---- ---|---|----- F | F | F F | F | F
n <- as.numeric(readline("digite n: ")) num <- as.numeric(readline("digite o primeiro: ")) max <- num for(i in(2:n)){ num <- as.numeric(readline("digite o numero: ")) if(num > max){ max <- num } } print(paste0("O maior= ", max))
#Versão 1 n <- as.numeric(readline("digite n: ")) num <- as.numeric(readline("digite o primeiro: ")) max <- num for(i in(2:n)){ num <- as.numeric(readline("digite o numero: ")) if(num > max){ max <- num } } print(paste0("O maior= ", max))
#Versão 2 n <- as.numeric(readline("digite n: ")) num <- as.numeric(readline("digite o primeiro: ")) max <- num for(i in(2:n)){ num <- as.numeric(readline("digite o numero: ")) if(num > max){ max <- num } } print(paste0("O maior= ", max))
n <- as.numeric(readline("digite n: ")) somaAp <- 0 somaNap <- 0 nAp <- 0 nNap <- 0 for(i in(1:n)){ nota <- as.numeric(readline("digite a nota: ")) if(nota >= 5){ somaAp <- somaAp + nota nAp <- nAp + 1 }else{ somaNap <- somaNap + nota nNap <- nNap + 1 } mediaAp <- somaAp / nAp mediaNap <- somaNap / nNap print(paste0("A media dos aprovados= ", mediaAp)) print(paste0("A media dos nao aprovados= ", mediaNap))