1. Tính tổng các số âm và tổng các số dương của dãy. 2. Tính tích các số chẵn của dãy gồm 10 số nguyên. (Dùng kiểu mảng)

dht1801

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 28 xem

1 trả lời

Thích Trả lời

giangtb.xd

Bài 1:

Program BTT;
Uses crt;
Var A: array[1..100] of longint;
n,i,sa,sd: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
sa:=0; sd:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i]>0 then sd:=sd+A[i];
If A[i]<0 then sa:=sa+A[i];
End;
Writeln('Tong am: ',sa);
Write('Tong duong: ',sd);
Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var A: array[1..100] of longint;
t,i: longint;
Begin
Clrscr;
t:=1;
For i:=1 to 10 do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i] mod 2 = 0 then t:=t*A[i];
End;

Write('Tong cac so chan: ',t);
Readln
End.

Vote (0) Phản hồi (0) 2 năm trước

honhung80

uses crt;
var i,n,am,du:longint; a:array[1..100000]of longint;
begin
clrscr;
write('Nhap so phan tu: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
if a[i]<0 then inc(am,a[i]) else inc(du,a[i]);
end;
writeln(am,' ',du);
readln
end.

uses crt;
var i,n,t:longint; a:array[1..100000]of longint;
begin
clrscr;
t:=1;
for i:=1 to 10 do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
if a[i] mod 2=0 then t:=t*a[i];
end;
writeln(t);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Giúp mình với bài này khó quá bạn ơi

dạng toán rút gọn nha mn ơi làm hộ mk

some even/ begin, throw / things/ and/ fight

làm giúp mình câu 2 với câu 4 với

Giúp em bài 2 của phần hình học với ạ

các bạn giải gấp bài văn này giúp mik nha, đề bài: em đã từng gặp ông bụt, cô tiên trong những truyện cổ tích, hãy miêu tả lại ông bụt hoặc cô tiên bằng trí tưởng tượng của em. ( mở bài, thân bài, kết bài xuống dòng cho mik biết nha)!

Giải các phương trình. Giúp mk vs ạ

Giải phương trình : x-97/125 + x-63/35 = x-7/21 + x-77/49 = 12

Cho tam giác ABC cân tại A, trên các cạnh AB và AC lấy tương ứng hai điểm D và E sao cho AD = AE. a, Chứng minh rằng DE // BC b, Gọi I là trung điểm của BC. Chứng minh AI là đường trung trực của đoạn BC.

Một vật có khối lượng 800g rơi tự do từ độ cao 80m xuống đất, lấy g=10m/s2. Chọn mốc thế năng tại vị trí sau khi vật rơi được 1s a. Tính động năng và thế năng của vật sau khi rơi 1s b. Tính vận tốc của vật ngay khi chạm đất