паскаль

[bobriq]

2 школьные задачки

1.    Задан одномерный массив a[1..n]. Удалить элемент, имеющий макси-мальное отклонение от 0.

 

2.    Описать структуру с именем  WORKER, содержащую следующие поля:

•    Фамилия и инициалы работника;

•    Занимаемая должность;

•    Год поступления на работу.

Написать программу, реализующую следующие действия:

•    Ввод с клавиатуры данных в массив, состоящий из структур типа WORKER;

•    Вывод фамилий работников, чей стаж работы в организации превышает значение, введенное с клавиатуры;

•    Если таких работников нет, вывести соответствующее сообщение.

 

 

и http://file.qip.ru/document/S0OQQkRO/Задание_3.html тут 3 вариант

плиз кому не сложно

работы на 10 минут если шарите  :NYpray: :NYpray: :NYpray:

[dENIM]

мы тебе помогать будем, а ты в это время ицуп играть?

нахуй иди

[bobriq]

мы тебе помогать будем, а ты в это время ицуп играть?

нахуй иди

поиграю за твоё здоровье

[silniy_colobok]

был бы дома помог автору (

[dimko-_-syan]

макси-мальное да тебе и по русскому нид хелпа :NYnate:

[bobriq]

макси-мальное да тебе и по русскому нид хелпа :NYnate:

это копипаст идиот

[Гость Рэйка]

зачем учится на программиста, когда даже это сделать сам не можешь?

или это не себе?

[bobriq]

зачем учится на программиста, когда даже это сделать сам не можешь?

или это не себе?

не себе

и не програмист моя специальность

[v1ruska]

AVTOR DOBR

[F-Tea]

1 задача, дальше день делать :NYtrollface:

 

program mass;
uses crt;
var b,a:array[1..10] of real;
j,m,i,n:integer;     max:real;
begin clrscr;
     write('размерность массива=');
       read(n);
       for i:=1 to n do  begin
       write('a[',i,']=');
       read(a[i]);        end;
       for i:=1 to n do
       if abs(a[i])>abs(max) then
       max:=a[i];
       for i:=1 to n do
       if a[i]<>max then    begin
       j:=j+1;
       b[j]:=a[i];
       m:=j;                end;
       for j:=1 to m do
       writeln('b[',j,']=',b[j]);
readkey;
end.

 

[justdontcare]

1 задача, дальше день делать :NYtrollface:

 

program mass;
uses crt;
var b,a:array[1..10] of real;
j,m,i,n:integer;     max:real;
begin clrscr;
      write('размерность массива=');
        read(n);
        for i:=1 to n do  begin
        write('a[',i,']=');
        read(a[i]);        end;
        for i:=1 to n do
        if abs(a[i])>abs(max) then
        max:=a[i];
        for i:=1 to n do
        if a[i]<>max then    begin
        j:=j+1;
        b[j]:=a[i];
        m:=j;                end;
        for j:=1 to m do
        writeln('b[',j,']=',b[j]);
readkey;
end.

 

Артас разлогиньтесь

[bobriq]

1 задача, дальше день делать :NYtrollface:

 

program mass;
uses crt;
var b,a:array[1..10] of real;
j,m,i,n:integer;     max:real;
begin clrscr;
      write('размерность массива=');
        read(n);
        for i:=1 to n do  begin
        write('a[',i,']=');
        read(a[i]);        end;
        for i:=1 to n do
        if abs(a[i])>abs(max) then
        max:=a[i];
        for i:=1 to n do
        if a[i]<>max then    begin
        j:=j+1;
        b[j]:=a[i];
        m:=j;                end;
        for j:=1 to m do
        writeln('b[',j,']=',b[j]);
readkey;
end.

 

:NYpray: :NYpray:

ктонить 2 соорудите плзщ

[bely|FeniX]

погуглить западло? :NYdunno:

[bobriq]

погуглить западло? :NYdunno:

где гуглить скажи плиз

[Lamer]

если до завтр. вечера не напишут - я напишу, там 2 мин, но я чот ваще никакой сейчас уже

[bobriq]

напишите ктонить пофасту 2ою  :NYpray: :NYpray: