А язык программирования какой?
Если паскаль то:
Цитата:
Сообщение от junglistique
1. Дан одномерный массив X. Вывести номера элементов, удовлетворяющих условию 0 < Хi < 1.
|
Код:
var
x:array [1..10] of real;
i:integer;
begin
for i:=1 to 10 do begin
x[i]:=random(15)/10;
if (x[i]>0) and (x[i]<1) then write (i:3);
end;
readln
end.
Цитата:
Сообщение от junglistique
2. Найти сумму элементов первого столбца.
|
Код:
var
a:array[1..5,1..5] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write (a[i,j]:5);
end;
writeln;
end;
for i:=1 to 5 do
s:=s+a[1,i];
writeln (s);
readln
end.
Цитата:
Сообщение от junglistique
3. Определить количество символов в предложении.
|
Код:
var
s:string;
k:integer;
begin
k:=0;
writeln ('enter string');
read(s);
k:=length(s);
writeln ('Количество символов',k);
readln
end.
P.S. Задание четче формулируйте, а то не понятно что от куда берется.