Bài 8: Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
TƯƠNG TƯ Đ

program bai3;

type KM=array [1..100]of LongInt ;

var a,b:KM;

i,N,t:Integer;

begin

write('nhap N =');Readln(N);

t:=0;

for i:=1 to n do

begin

Write('nhap a [',i,']=');

readln (a[i]);

if (a[i] mod 2=0) then [i]:=sqr(b[i])

else b[i]:=a[i];

end;

readln;

end.

a) Với N= 6

A= 5 6 3 4 5 8

B=?

b)Với N = 6

A= 5 7 3 1 11 15

B= ?


Các câu hỏi tương tự
Dinh Le
Xem chi tiết
BTS ARMY
Xem chi tiết
Thiên Dii
Xem chi tiết
Lâm Mê Game
Xem chi tiết
PhươnggThảo Ngô
Xem chi tiết
Hoa Xương Rồng
Xem chi tiết
Khanh Huynh
Xem chi tiết
Anh Trang
Xem chi tiết
Trần Tuyết Nhung
Xem chi tiết