Jump to content
СофтФорум - всё о компьютерах и не только

помогите с массивами в Delphi


Recommended Posts

Задание: Каждый из элементов ti массива Т(т) заменить минимальным среди первых i элементов этого массива.

при этом необходимо кол-во элементов в массиве ввести в TEdit а исходный и результативный массив вывести в TMemo, вот тут и косяк, например вот эта конструкция выдает ошибку:

var

S:array [0..9] of integer;

i,n:integer;

begin

n:= strtoint (ed_input.Text);//ввод эл-тов массива

for i:=0 to n-1 do

S:= strtoint(Memo_in.Lines);

Memo_out.Lines.Clear;

for i:=0 to n-1 do

Memo_out.Lines.Add(inttostr(s));

end;

Link to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...