ANTICHAT

ANTICHAT (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   помогите пожалуйста с массивами (https://forum.antichat.xyz/showthread.php?t=98544)

Ната 30.12.2008 12:02

это какая задача?)))

Sinay 30.12.2008 12:06

Код:


const n=6;
var a:array[1..n] of real;
  i:integer;s,min,max:real;
begin
  {ввод элементов массива} 
for i:=1 to n do begin
  write('  a[',i,']='); readln(a[i]); end;
        writeln;

  min:=a[1];max:=min;s:=a[1];

 for i:=2 to n do begin
s:=s+a[i];
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];end;
writeln ('min= ',min,' max= ',max,' crednaja= ',s/n);
end.


Sinay 30.12.2008 12:06

та 4,эта 3

Sinay 30.12.2008 12:08

на программиста небось учишься?)

Sinay 30.12.2008 12:10

и в следущий раз пости в эту тему:"Студентам с лабораторными сюда"
специально для этого создали

Ната 30.12.2008 12:12

спасибо огромное))))

Ната 30.12.2008 12:12

нет слава богу не на програмиста)))) хорошо в следующий раз туда писать буду))))

Sinay 30.12.2008 12:16

не за что,тут девушкам всегда рады,удачи на сессии

Ната 30.12.2008 12:29

спасибо))))

De-visible 30.12.2008 13:27

Closed.
спец. для блондинок:
Есть закрепленная тема, где следует задавать подобные вопросы.


Время: 02:55