паскаль...массивы и циклы...

[Верочка]

Циклы :
1.Даны натуральное число n и вещественные числа а1,
a2, …, аn. Определить сумму квадратов этих чисел.

2.Дано натуральное число. Верно ли, что это число четырехзначное (составное условие и вложенную условную инструкцию не использовать);

Массивы :
1.Дан массив. Составить программу...является ли k-й элемент массива четным числом ?

2.Найти сумму наибольшего и наименьшего элементов массива вещественных чисел массива Z(n);

[capta1n]

воспользуйтесь поиском - таких задач было решено очень много

[Верочка]

я в компе нифига не понимаю...помогите решить...

[maladoy]

1

uses crt;
var n,i:longint;
 a:array [1..100] of real;
s:real;
begin
s:=0;
randomize;
readln(n);
for i:=1 to n do
begin
a[i]:=random(25);
writeln(a[i],'   ');
s:=s+sqr(a[i]);
end;
writeln('s=',s);
readln;
end.

[maladoy]

3

uses crt;
var n,s,i,k,min,max:longint;
 z:array [1..100] of integer;
begin
s:=0;
randomize;
readln(n);
for i:=1 to n do begin
z[i]:=random(25);
writeln ('   ',z[i]);
end;
max:=z[1];
min:=z[1];
for i:=1 to n do begin
if z[i]>max then max:=z[i];
if z[i]<min then min:=z[i];
end;
writeln('vvedite k');
readln(k);
if z[k] mod 2 =0 then writeln ('da')
else writeln ('net');
s:=max+min;
writeln ('s=',s);
readln;
end.

[Верочка]

спасибо...

[maladoy]

2

uses crt;
var h,k:integer;
begin
k:=0;
writeln('vvedi 4islo');
readln(h);
repeat 
h:=h div 10;
k:=k+1;
until h=0;
if k=4 then writeln ('da')
 else writeln ('net');
readln;
end.