Задача 3 урок 15 Одномерные массивы и работа с ними в Паскале.
Primary tabs
У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17
type // секция объявления типов myArr = array[1..17] of integer; // массив из 17 элементов var a: myArr; // объявляем переменную типа myArr stroka, dlinna, m, i : integer; begin m:=1; stroka:=1; dlinna:=1; for i:= 1 to 17 do begin a[i]:=a[i]+m; //Увеличение массива m:=m+1; if (dlinna = stroka) then // проверка переменных для переноса строки begin writeln(a[i]); dlinna:=0; stroka:=stroka+1; end else write(a[i]); dlinna:= dlinna+1; end; readln(); end.
- Log in to post comments
- 842 reads