Viết chương trình nhập vào mảng một chiều các số nguyên (0<n<30). hãy đưa ra màn hình tổng các phần tử âm và chia hết cho 2

tracybobi12

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 14 xem

1 trả lời

Thích Trả lời

hmiracle358

program Lap_trinh;

uses crt;

const nmax= <số gì lớn nhất trong mảng thì bạn ghi>

var A: array[1..nmax] of integer;

s,i,n: integer;

begin

clrscr; randomize;

for i:=1 to n do A[i] := random(301) - random(301);

for i:=1 to n do write ( A[ i] :10);

writeln;

s: =0;

for i:=1 to n

if (A[ i ] mod 2= 0) and (A [i] <0 ) then s:= s+ A[i];

writeln('tong can tinh la: ',s);

readln

end.

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

hanhbapmy

program ct;

uses crt;

var A:array[1..30] of integer;

i,n,S:integer;

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]);

end;

S:=0;

for i:=1 to n do

if (A[i]<0) and (A[i] mod 2=0) then

S:=S+A[i];

write('Tong cac phan tu am va chia het cho 2 la: ',S);

readln;

end.

Học tốt!

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

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

Ai lm đc câu 1 k ak giúp mik vs

Giúp mình với, mình sẽ cho 5 sao và hay nhất, thật chính xác nhé. Mình cảm ơn trước

Giải giúp mình bài 6 với 7 ạ. Rõ ràng nha. Mình cảm ơn!

Vẽ hình dương tử đc ko>Xấu như thế nào cũng đc

Câu 1 :Đội tuyển lớp 5 dự thi An toàn giao thông được chia làm 6 nhóm (mỗi nhóm có số người như nhau). Các em đều đạt điểm 10 hoặc 8. Tổng số đạt 160 điểm. Hỏi có bao nhiêu em đạt điểm 10? Bao nhiêu em đạt điểm 8?. Câu 2 : a, x - 25/100 * x = 60 - x + 25% * x b, x : 2 + x : 4 + x = 3,5 Giải chi tiết nha nhé ! Cảm ơn các bạn nhiều .

làm giúp mình 2 bài cuối :) chỉ cần pt thôi nha

vẽ Monkey D Luffy trong trạng thái gear four và được bọc haki vũ trang

Giúp mình với, mình sẽ cho 5 sao và hay nhất, thật chính xác nha. Mình cảm ơn trước

vẽ ngụy anh chi bi hay anime cũng đc người thật càng tốt nha

Em hãy viết một đoạn văn của mùa thu ở quê em khoảng 20 dòng

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến