2006 » Ноябрь » 13 > СРОЧНО!!!
ВЫРУЧАЙТЕ срочно за эту ночь нужно сделать 5 задач по Паскалю!!!
1. Ввести значения 9 элементов одномерного массива. Найти сумму элементов массива, значения которых превосходят среднее массива. ------------------------ 1ая уже есть -----------------
2. Ввести значения 11 элементов одномерного массива. Найти индекс второго по величине элемента массива. ------------------------ 2ая уже есть -----------------
3. Ввести значение целой положительной переменной N и определить количество тех членов натурального ряда от 1 до N, которые не делятся нацело на три. ------------------------ 3ая уже есть -----------------
4. Ввести значение строковой переменной, содержащее адрес электронной почты. Определить длину имени пользователя почты (до знака @). ------------------------ 4ая уже есть -----------------
5. Ввести значения 4х3 элементов двумерного массива целых чисел. Сформировать вектор, содержащий количество простых элементов каждого столбца массива.
В долгу не останусь!!! выручайте.... если кто решит, то на емаил azatkh@yandex.ru скиньте Еще раз, я очень прошу, решите!!!
begin writeln('Введите массив ',j1,'x',i1); for i := 1 to i1 do begin for j := 1 to (j1-1) do read(A[i,j]); readln(A[i,j1]); end; for j := 1 to j1 do begin n:=0; for i := 1 to i1 do begin flag := true; for k := 2 to (A[i,j]-1) do if (((A[i,j] mod k)=0) then flag:=false; if (flag) then n:=n+1; end; vekt[j]:=n; end; Write('Координаты получившегося вектора: ['); for j := 1 to j1 do write(vekt[j], ' '); writeln('].'); Writeln('Для выхода нажмите любую клавишу!'); readln; end.
program zada4a5; const i1=3; j1=4; {j1 - кол-во столбцов} {i1 - кол-во строк} var A: array [1..i1,1..j1] of integer; vekt: array [1..j1] of integer; i,j,n: integer;
begin writeln('Введите массив ',j1,'x',i1); for i := 1 to i1 do begin for j := 1 to (j1-1) do read(A[i,j]); readln(A[i,j1]); end; for j := 1 to j1 do begin n:=0; for i := 1 to i1 do if (((A[i,j] mod A[i,j])=0) and ((A[i,j] mod 1)=0)) then n:=n+1; vekt[j]:=n; end; Write('Координаты получившегося вектора: ['); for j := 1 to j1 do write(vekt[j], ' '); writeln('].'); Writeln('Для выхода нажмите любую клавишу!'); readln; end.
program zada4a4; var Mail,name:string; len,i,n: integer; begin writeln('Введите e-mail:'); readln(Mail); len := Length(mail); n := 0; for i := 1 to len do if (Ord(mail[i])=97) then n:=i; if (n=0) then Writeln('Адрес e-mail неправильный!') else begin name := copy(mail,1,n) writeln('Имя пользователя: ',name); end; Writeln('Для выхода нажмите любую клавишу!'); readln; end.
