Задать вопрос
21 февраля, 14:34

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.

Ошибка: попытка присвоить переменной типа array [1 ... 60] of integer выражение типа integer

может я криворукий, но какого чёрта переменной типа integer нелбзя присвоить выражение типа integer

+2
Ответы (1)
  1. 21 февраля, 17:41
    0
    Немножко есть криворукости: нужно присваивать не с, а с[i]

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

    А вот дальше совсем плохо.

    if c=0 then - это как, весь массив равен нулю? Это в Паскале нельзя писать.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «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; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Как сделать теперь без массива (паскале) ? 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)
Нужно составить описание к программе program pr1; const n=5; var a:array[1 ... n] of integer; i, s1, s2:integer; begin randomize; s1:=0; s2:=0; for i:=1 to n do begin a[i]:=random (20) - 8; writeln (a[i]:4,' Порядковый номер ', i) ; end; writeln;
Ответы (1)
Исправить ошибки в паскале program exp3; const m=5; n=3; type matr = array [1 ... m, 1 ... n] of integer; var m: matr; b, i, j, k : integer; повторно объявленный идентификатор begin clrscr; randomize;
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (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)