Задать вопрос
18 января, 00:43

Компилятор в паскале пишет: Program1. pas (9) : Нет перегруженной подпрограммы с такими типами параметров

Посмотрите, в чем ошибка:

1 program mas30;

2 var i:integer;

3 t:array[1 ... 30] of integer;

4 begin

5 for i:=1 to 30 do

6 begin

7 t[i]:=random (21) - 10;

8 t:=abs (t) ;

9 writeln ('t[', i,']=', t[i]) ;

10 end;

11 end.

Строка 8!

+5
Ответы (1)
  1. 18 января, 03:49
    0
    У тебя T - это массив, ты не обозначил элемент массива в операции!
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Компилятор в паскале пишет: Program1. pas (9) : Нет перегруженной подпрограммы с такими типами параметров Посмотрите, в чем ошибка: 1 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Program1. pas (7) : Нет перегруженной подпрограммы с таким количеством параметров Sqrt выдает эту ошибку стоит только добавить (+3,5) program lesya; var y, x: real; Begin writeln ('Решение системы уравнений') ; writeln ('Введите значние x') ;
Ответы (1)
Что не так? (процедура обязательна) procedure random (k:integer) ; var a:array[1 ... 100] of integer; var l:integer; begin for l:=1 to k do begin a[l]:=random (100) ; writeln (a[l]) ; end; end; var v:integer; begin write ('Сколько будет чисел?
Ответы (2)
Program z17; const n = 60; var c: array [1 ... n] of integer; k, i:integer; Begin randomize; k:=0; for i:=1 to n do c: = random (21) - 10; if i mod 4 = 0 then if c=0 then k:=k+c[i]; end; end; end; writeln (k) ; end.
Ответы (1)